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

format_c@manchester:~/Develop/Perl> perl test.pl
DAs ist erlaubt
erlaubt
format_c@manchester:~/Develop/Perl>