$ perl -ne 'print if m{^.{5,6}$};' all_words.txt >> trimmed_words.txt
$