Select Code to Download

my $usage=<<EOF;
usage:
...
EOF

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

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