my $pfad = "C:\Test\Dateiname.abc";
my $verz = dirname($pfad); # Inhalt Variable -> "C:\Test\"
my $dateiname = basename($pfad,".abc"); # Inhalt Variable -> "Dateiname"