my $regex = join '|', @latin_am;
    while (<>) {
        print $1 if /$regex/;
    }

##</code><code>##

    % foo.pl file