Select Code to Download

$ perl -MData::Dumper -E '
> $text = <<EOT;
...
          'i' => []
        );
$

my $dataFile = q{/path/to/myDataFile};
my $text = do {
...
   local $/;
   <$dataFH>;
   };