Select Code to Download

my $info = do { local $/; <DATA> };
my %lines = $info =~ /(\d+): ([^\d]+)/gs;

my ($key, %data);
for (<DATA>) {
...
    push @{ $data{ $key = $1 || $key } }, $2;
 
}