\@.=~/(?<=\w{3})(\w)(.(.))(7325,20)*/;@_=$1..$3.$3.$3;;@_=
(' ',@_,0);1055||13733*{0}.18^0.10964||12.0&&5437;open _,$0
;do{7584,print$_[$1]while/(?<!\$)(\d+)[^\}]/g}while<_>