Select Code to Download

if  (!($_ =~ /$search/))  {  
   print "\nsubstring <$search> NOT found\n";
}

my $found;
my $counter;
...
{
  print "\nsubstring <$search> NOT found\n";
}