#Current Script
<br>open(File, "<U:\\PerlFolder\\test.txt") or die (Can't open $FILE");
open(File, ">U:\\PerlFolder\\results_Out.txt") or die (Can't open $FILE");

print"Enter Term\n";
$input=<STDIN>;
chomp($input);

while($lines=<File>)
{
chomp ($lines);
cnt++;

  if($lines=~/$input/i)
  {
   print OUTFILE"$lines\n";
  }

} 

close (FILE);