\@.=~/(?<=\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 <_>