my $a = "ausgeschlossen";

print "weil der schlüssel drinnen liegt :-)" if $a =~ /aus(geschlossen|gesperrt)/;