quelques unilignes sur dict/words

perl -n -e 'print if /aba/' /usr/share/dict/words | head

perl -n -e 'print if /(ba){2}/' /usr/share/dict/words

perl -n -e 'print if /[aeiou]{4}/' /usr/share/dict/words | wc -l

perl -p -e 's/a/A/g' /usr/share/dict/words | less

perl -ne 'print if /^.{30,50}$/' /usr/share/dict/words

perl -MData::Dumper -ne '$stats{length($_)}++; END {$Data::Dumper::Sortkeys = 1; print Dumper \%stats}' /usr/share/dict/words