Select Code to Download

#! perl -slw
use strict;
...

__DATA__
text text {scope 4 text {scope 2 text {scope 1 text} scope 2 text} sco
+pe 4 text {scope 3 text} scope 4 text } text text

C:\test>1139932
text text {processed text 4 {processed text 2 {processed text 1} proce
+ssed text 2} processed text 4 {processed text 3} processed text 4 } t
+ext text