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