Select Code to Download

my $foo_arg = $ARGV[0]; # or just shift();
unless ($foo_arg) {
...
  chomp($foo_arg);
  die "Alright, i'm just quitting this one!" unless $foo_arg;
}

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