Select Code to Download

my $str = <<TEXT;
STARTP
...
}
use Data::Dumper;
print Dumper(\@ary);

$VAR1 = [
          [
...
'
          ]
        ];