my $title;
for (@data) {
    if (/^TITLE\s+\d*(.*)/) {
        $title .= $1;
    } else {
        last if defined $title;
    }
}