use encoding 'utf8';%m=map{$_,++$i}split'',$s='\xe4\xb8\x80\xe4\xba\x8c\xe4\xb8\x89\xe5\x9b\x9b\xe4\xba\x94\xe5\x85\xad\xe4\xb8\x83\xe5\x85\xab\xe4\xb9\x9d';$l=1;%k=map{$_,$l*=10}split'',$k='\xe5\x8d\x81\xe7\x99\xbe\xe5\x8d\x83';$n=0,s/([$k])|([$s])([$k]?)/$n+=($m{$2}||1)*($k{$3||$1}||1)/eg,print"$n
"for<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).