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