my ($title, $data) = split /\n/, $output, 2;