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