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

##</code><code>##

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