#!/usr/bin/perl

my $str='dr-x------    0  4294967295 513    0 Sep 11 15:45 Start Menu';
print "$str\n";

# Alle Leerzeichen
# zwischen einer Zahl und einem Buchstaben
# oder zwischen zwei Zahlen
# durch ein '/' ersetzen.
(my $str_out=$str)=~s!(?<=[\d-])\s+(?=\w)|(?<=\w)\s+(?=\d)!/!gi;
print "$str_out\n";

# oder (bessere lösung)
# Zerteile den string an den Leerzeichen,
# bis das Array neun elemente enthält
# und füge das Array mit '/' als Trennern wieder zusammen.
$str_out=join('/',split(/\s+/,$str,9));
print "$str_out\n";