Select Code to Download

sub record {
    ($g,$p)=@_;
...
    $lT=$g-($wT+$tT);
    ($wT,$lT,$tT);
}

sub record {
    ($g,$p)=@_;$w=3;$t=1;
...
    *$w);$;=$g-($"+$tT);
    ($",$;,$tT);
}

sub record {
    ($g,$p)=@_;
    @_=($"=int($p/(@_+1)),$/=$p-$"*(@_+1),$g-$"-$/);
    (shift,pop,pop)
}

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