my $toFind="String"; 
foreach (@list){  
   next unless /$toFind/i;
   next if /$toFind[.][hco]/i;
   print;
}