format_c@manchester:~/Develop/Perl> cat test.pl
chomp (my $input = <STDIN>);
print($input =~ /[^A-Za-z0-9._\- ]/ ? "nicht erlaubt\n" : "erlaubt\n");

format_c@manchester:~/Develop/Perl>