Select Code to Download

<top>
    <sub name=1>
...
    </sub>
    ...
</top>

#! perl -slw
use strict;
...
       </subsub>
    </sub>
</top>

C:\test>\perl64-10\bin\perl 995446.pl
{
...
{
  "sub" => { name => 5, subsub => "\n           some stuff\n       " }
+,
}