sub score {
my$s;sub S{$_[0]=~X?10:$_[0]}$s+=($l=shift)=~X?10+($_[1]eq'/'?10:S($_[0])+S$_[1]):($r=shift)eq'/'?10+S$_[0]:$l+$r for 1..10;$s
}

##</code><code>##

sub score {
$"=my$s;sub S{$_[0]=~X?10:$_[0]}$S="@_";$S=~/(X)(?=(.)(.))|(.\/)(?=(.))|(.)(.)/g,$s+=$1?10+($3eq'/'?10:S($2)+S($3)):$4?10+S($5):$6+$7for 1..10;$s
}