#!/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;