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