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