use strict;
use warnings;

while (defined(my $line = <>)) {
    chomp $line;
    if ($line =~ m/pattern/) {
        print "$line\n";
    }
}