while( my $line_r = <RFH> )
   {

   # open( SFH, $TestFile_Search);
   while( my $line_s = <SFH> )
      {