use encoding 'utf8';%m=map{$_,++$i}split'',$s='一二三四五六七八九';$l=1;%k=map{$_,$l*=10}split'',$k='十百千';$n=0,s/([$k])|([$s])([$k]?)/$n+=($m{$2}||1)*($k{$3||$1}||1)/eg,print"$n
"for<>