open(TMP,'file.txt');

while($line = <TMP>) {
  
  chomp($line);
  next if $line =~ /^Total/;
  next if $line =~ /^\d+/;
  
  ($path) = split(/\s+/,$line);

  if (-d "$path") {
    if ($path =~ m!/$!) {
      $dir = (split /\//, $path)[-1];
      print "/$dir/=/$dir\n";
    }
  }
  
}

close(TMP);