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