@words = do{ local @ARGV = 'words.txt'; <> }; chomp @words;; m[(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)] and print for @words;; aboideau aboideaus aboideaux aboiteau aboiteaus aboiteaux absolutive absolutize absolutized absolutizes abstemious abstemiously abstemiousness ...