my ($verz,$dateiname) = ($pfad =~ /(.+\\)(.+)/);
View full thread File::Basename durch Reguläre Ausdrücke ersetzen