use strict ;
use warnings ;
use Data::Dumper ;

my @lines = qw(
dasd
ist
ein
test
für
die
input
daß
ok!
b&b
datei
mit
komischen
zeichen:
und
xml
asdf
!!") ;

my @lines_ohne_sonderzeichen = map { my $l = $_ ;
                                     $l =~ s/[^a-z_\/ß-]//g ;
                                     $l } @lines ;

printf "Vorher:\n%s\nNachher:\n%s\n" ,
       Dumper( \@lines ) ,
       Dumper( \@lines_ohne_sonderzeichen ) ;