perl -ape '@A=map[map-105+ord,/./g],"\xc9!\x89c","\x01\xdb1t","\x8d9\x85c","eoej";$_="@{[map{/.*/;$a=$b=0;$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).