Maybe you like this concise style:

open TMP, 'file.txt';

while( <TMP> ){
  chomp;
  next if /^Total/ or /^\d/;
  s/\s+//;
  
  if (-d and m!/$!){
     my $dir = (split !/!)[-1];
     print "/$dir/=/$dir\n";
  }
}

close TMP;
[download]

But of course, this is subject to taste.
"We are not alone"(FZ) Update: greenfox pointed out that I forgot the TMP in the while condition...