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