#!perl -ap @A=map[map-105+ord,/./g],"\xc9!\x89c","\x01\xdb1t","\x8d9\x85c","eoej";$_="@{[map{$a=$b=!//;$a+=$_*(@F>4?$A[$'-1][$b++]:24*$'**++$b)for@F;$a/24}1..9]}";s/( 0)*$/ /
Note that non-ascii characters in the above source code will be escaped (such as \x9f).