12
use File::Basename;dirname($dateipfad);
$string = 'C:\programme\test\test.pl'
$string =~ s/[^\\]+$//;