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

##</code><code>##

my ($key, %data);
for (<DATA>) {
    /^(?:(\d+):\s*)*(.+)$/;
    push @{ $data{ $key = $1 || $key } }, $2;
 
}