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

##</code><code>##

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

##</code><code>##

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