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