use strict;

print"Please type the term you're looking for\n";

chomp (my $cho = <STDIN>);

open (FILE, "<", $ARGV[0]) || die "$!";

$/ ="(.*)\n(.*)\n(.*)";
while (<FILE>){

  m/(.*)\n(.*)\n(.*)/gi;
  next if (!m/(.*)\n$cho\n(.*)/ );
  print "$1\n$cho\n$2";
}
$/ = "\n";