perl -lne 'print for /\w*[^\WaeiouyAEIOUY]{4,}\w*/g' /usr/share/dict/w +ords [download]
In reply to Re: regular expressions by Anonymous Monk in thread regular expressions by mbgbioinfo