#!/usr/local/bin/perl

use strict;
use warnings;
use autodie qw( open close );

@ARGV == 1 or die "Usage: perl $0 file\n";

my $file = shift;

open my $fh, '<:encoding(UTF-8)', $file;

my @lines = <$fh>;

close $fh;

for my $line (@lines) {
    print $line if $line =~ m/[aeiou][aeiou]/i;
}

exit 0;

##</code><code>##

#!/usr/local/bin/perl

use strict;
use warnings;
use open qw( :encoding(UTF-8) :std );

@ARGV or die "Usage: perl $0 file ...\n";

while (my $line = <ARGV>) {
    chomp $line;

    my @words = split ' ', $line;

    for my $word (@words) {
        print "$word\n" if $word =~ m/[aeiou][aeiou]/i;
    }
}

exit 0;