if ($pruefwert =~ /\Q$suchstring/i) ...