Nice challenge..

Here's my shameful attempt:

sub record {
    ($g,$p)=@_;
    $w=3;$t=1;
    $wT=int($p/$w);
    $tT=$p-($wT*$w);
    $lT=$g-($wT+$tT);
    ($wT,$lT,$tT);
}
[download]

I didn't do much, just obfuscated it a bit here and there ;).

UPDATE: More Golf:

sub record {
    ($g,$p)=@_;$w=3;$t=1;
    $"=int($p/$w);$tT=$p-($"
    *$w);$;=$g-($"+$tT);
    ($",$;,$tT);
}
[download]

UPDATE 1: Some more golf :)

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

_____________________

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