use strict;
use warnings;

sub sanitize_filename {
        my $filename = shift;
        return if not length $filename;

        my ($fname, $ftype) =
                # nur bestimmte Zeichen wie a..z,A..Z,0..9,_,- in Dateinamen erlaubt
                $filename =~ /(.+)?\.([a-z0-9_-]+)$/i;#
        $fname =~ s/[^a-z0-9_-]//ig; # lösche alle Zeichen die nicht erlaubt sind

        return "$fname.$ftype";
}


for (<DATA>) {
        chomp;
        print "$_ -> ", sanitize_filename($_), "\n" ;
}


__DATA__
1-läöpab.cd_efg.txt
1234.5678.9012.abcd.efgh.log
µöüß\io(/&.exe
ZuGuMzUg-De.r-dat.ei