while( my $line_r = <RFH> )
   {
   for my $line_s (@search) {
      {