Select Code to Download

use Data::Dumper;
use strict;
...
text4
text5
text6

$VAR1 = {
          'heading1' => [
...
'
                        ]
        };