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