$line =~ (/a/i && /e/i && /i/i && /o/i $$ /u/i) #### ($line =~ /a/i && $line =~ /e/i && $line =~ /i/i && $line =~ /o/i $$ $line =~ /u/i)