perl -nE"/(?=^[^a]*a[^a]*$)(?=^[^e]*e[^e]*$)(?=^[^i]*i[^i]*$)(?=^[^o]*o[^o]*$)(?=^[^u]*u[^u]*$)/ and print" words.txt