my $pruefwert = "Muster2;Muster1;Muster3";
my $suchstring = "Muster2";
if (";$pruefwert;" =~ /\;$suchstring\;/i) {
print "gefunden!";
}