$ perl -nle 'print if length == 8 && ! /\A\w{8}\z/' /usr/share/dict/words 10-point 11-point 12-point 16-point 18-point 20-point 48-point -ability Abu-Bekr acantho- [snip]