#!/usr/bin/perl -l
my $word = shift;
open my $in, '<', shift or die $!;
open my $out, '<', shift or die $!;
while (<$in>)
{
  print $out $_ if $_ eq $word;
}
close $in;
close $out;