my ($verz,$dateiname) = ($pfad =~ /(.+\\)(.+)/);