use File::Basename qw(dirname basename);
my $pfad = 'C:\Test\Dateiname.abc';
my $verz = dirname($pfad); # Inhalt Variable -> "C:\Test\"
my $dateiname = basename($pfad,""); # Inhalt Variable -> "Dateiname"
print "$pfad\n$verz\n$dateiname\n";