Select Code to Download

use strict; # DO THIS! (by the way, you missed that one..)
use warnings; # haha and that too..
...
  }
  print $sentences->[$scount] . "\n";
}

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