my @lines = <FH>;

##</code><code>##

if ($file =~ /[aeiou]{2}/i) {
    print $file;
}