Help for this page

Select Code to Download

Select or download this

my @words   = qw( foo bar );
while (my $line = <DATA>) {
    chomp $line;
...
foo
bar
foo bar

Select or download this

use List::Util qw( first );
my @words   = qw( foo bar );
while (my $line = <DATA>) {
...
foo
bar
foo bar