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