my ($header , $data) = split (/\n\n|\r\n\r\n|\r\r/ , $result, 2);