my %stats = map {m/(\d+)[\t\s]+(.*)/; $2 => $1} `du -k`; 
for (keys %stats) { 
 print "$_ = $stats{$_}\n"; 
}

##</code><code>##

./.ssh = 5
./temp = 273
. = 280

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}