use File::Basename;
my $filename = basename( 'ABCDEF\AB1010\datei.txt' );
print $filename;