Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
    % foo.pl file
```