my @specialchars = map { my $line = $_; $line =~ s/[^a-z]|[^-_\/ß]//g; $line; } @inputFileContent;