print OUTFILE grep /$phrase/, <INFILE>;

##</code><code>##

/$phrase/ && print OUTFILE $_ while <INFILE>;