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