while (defined (my $line = <WORDS>)) {

##</code><code>##

use strict;
use warnings;

while (<DATA>) {
    chomp;
    my @words = split /\s+/;
    
    while (@words) {
        $_ = shift @words;
        next if ! defined $_;
        next unless /a/ && /e/ && /i/  && /o/ && /u/;
        print "Matched: $_\n";
    }
}

__DATA__
aeiou
0

nothing here
aeiou again