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