Damit habe ich zuerst versucht, mein Skript sicherer zu machen, aber da ich hier Richtung Entwarnung herausgehört habe, habe ich es wieder herausgenommen, zumal es nicht sehr elegant aussieht.


if ( $regex =~ /[$@&{[(*+#]/ ) {
print "Nicht erlaubte Zeichen\n";
exit 1;
}