Select Code to Download

###################################################################
use strict;
...
print "\n\nresult:";
print Dumper $result;

result:$VAR1 = [
          'startrule',
...
          $VAR1
        ];

result:$VAR1 = [
          'startrule',
...
              $VAR1
          ];