perl -nE"/(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)/ and print" words.txt |wc -l