Select Code to Download

my @lines;

...
{
   push @lines,$_;
}

my @lines = <DATA>;

$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
...
912828N71       Note    9-Year  2016-05-19      2016-05-31      2026-0
+1-15      103.533587      0.625000
912828Q86       Note    1-Year  2016-05-25      2016-05-27      2018-0
+4-30      100.003850      NULL
$