perl -lne 'print if /pattern/' filename

##</code><code>##

grep 'pattern' filename

##</code><code>##

use strict;
use warnings;

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