U='個十百千' D='零一二三四五六七八九' $<.each{|l|v=-2;l.scan(/([#{D}])?([#{U}]|$)/u){|m|v+=D.index($1||"一")/3*10**(U.index($2)/3)};p v}