http://www.perlmonks.org?node_id=944303


in reply to regex to find vowels in anyorder

This one can be easily solved without using a regex. For example, a one-liner featuring the good ol' tr (aka y) operator, punctuated with just & characters (sorry couldn't resist):

perl -ne 'y&a&&&&y&e&&&&y&i&&&&y&o&&&&y&u&&&&print' words.txt