Select Code to Download

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

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