Re^4:How to Map a scalar to a key that is an array?

[jdporter]

my %data = do { local $/ = ''; map { chomp; split /\n/, $_, 2 } <> };

my %data = map /^(.*?)\n(.*)\n/s, do { local $/ = ''; <> };