12: if ($test =~ m/($string)/i){
13:         print "GEFUNDEN! ($1)\a\a\a\a";
14: }