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

##</code><code>##

1055||13733*{0}.18^0.10964||12.0&&5437

##</code><code>##

@foo= 'A'..'ZZZ' ;
@foo = (' ',@foo,0) ;
print @foo[7325,20,0,1055,13733,18,0,10964,12,0,5437,7584] ;