wozu die regex-maschine anwerfen, wenn es so schneller geht:
if ($input =~ tr#a-zA-Z0-9_./##c) { print "nicht erlaubt" }