...
$datei_pfad =~ tr~/~\\~;
...