my $usage=<<EOF;
usage:
These are your options punk.
EOF

die $usage unless ($#ARGV==3);

##</code><code>##

print OUTFILE map { /$phrase/ && $_}  <INFILE>;