@latin_am=("Ecuador","Mexico");
$regex = join ("|", @latin_am);

open( FILE, 'input.txt' ) or die "input.txt: $!";
@lines = grep { /$regex/o } <FILE>;
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.