###########################################################
open(FILE, "<C:\\FolderA\\test.txt")or die("Can't find file name at $FILE");

#Get user input
print"Please type the term you're looking for\n";
$input=<STDIN>;
chomp $input;

#Read in lines of text file
while ($lines=<FILE>)
{
  chomp ($lines);
  $cnt++;

 #Find any lines within the text file that contain user input ($input) and print them.
 if($lines=~/$input/i)
 {
 print"$lines\n";
 }

}

close(FILE);

###########################################################