There's a pretty quick and dirty way to do it. Here's how:
@a = grep(!/^.$/, `find .`);
print @a;
the
find . system command will return a list of all directories (and sub-directories depending on command line switches used) starting at '.' (your current directory). By default, it will also return '.' as one item of the list. Here, you simply weed it out with a grep ;).
_____________________
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}