use strict;
use warnings;
my $meinpfad = 'ABCDEF\AB1010\datei.txt';
my ($dateiname) = ( split(/\\/,$meinpfad) )[-1];
print "Dateiname von $meinpfad ist $dateiname", "\n";