.
.
.
  ($size, $inode)=split;
  $inode .= "/" if (-d $inode);
  chop($size);
.
.
.