Select Code to Download

perldoc perlre

for my $line (@input) {
    if ($line =~ /$pattern/) {
...
        print "$line contains $pattern\n";
    }
}

my $match_cnt = grep { $_ =~ /$pattern/ } @input;