While I don't have time to actually play this round of golf, the perl version can definately be shortened. For instance, the while clause in the first line jumps out as being longer than necessary:

while($n<@C){$_=$C[$n++]};
[download]

$_=$C[$n++]while$n<@C;
[download]

-Blake