open(R,$s_file);
while(<R>) {
  if(/$search/) {
     chomp;
     s/\@|\$\{|\}|\(|\)|\*//g;
     my $match_line = $_;
     $cnt = grep(/$match_line/, @target);
     $i++; print "$i $cnt $match_line\n";
     $cnt=0;
  }
}