Select Code to Download

use Data::Dumper;
my $info = do { local $/; <DATA> };
...
    $lines{$1} = $2;
}
print Dumper (\%lines);

my %lines = $info =~ /(\d+): (.+?)$/gm;