Re (tilly) 3: (Golf) Let's go bowling

[tilly]

D'oh. That brings my idea of working in reverse up to 133.

sub hole {
$i=$s=0;$s-=$_[-1]if"@_[-2,-1]"=~m!/|X!;map{$s+=$_[$i-1],$_=/X/?($s+=$
+_[$i-2],10):10-$_[$i+1]if/\D/;$s+=$_;$i++}@_=(0,0,reverse@_);$s
}