perldoc perlre

##</code><code>##

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

##</code><code>##

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