#   5    0    5    0    5 7
$p=shift;print grep/$p/,<>;

##</code><code>##

#   5    0    5    0    5    0 2
$p=shift;while(<>){print if/$p/}