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

##</code><code>##

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

##</code><code>##

    ...
    print ">".$title."\n".$data."\n";

##</code><code>##

    print ">$output\n";