my ($header, $body, $footer) = do { local $/ = ""; };