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