my @specialchars = map {
  my $line = $_;
  my $retval = undef;
  $line =~ s/[a-z]|[-_\/ß]//g;
  if ($line ne  ""){
     $retval = $line
  }
  defined $retval ? $retval : ()
} @inputFileContent;