Select Code to Download

my $fmt = q[
    x[10] a5     # code
...
    x[4]  a3 a2  # doodah & whatsit
];
$fmt =~ s/#.*//g;