use Data::Dumper;
my $info = do { local $/; <DATA> };

my %lines;
while($info =~ m/(\d+)\: (.+?)$/gm) {
    $lines{$1} = $2;
}
print Dumper (\%lines);
##</code><code>##

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