while (<STDIN>) {
    next unless /^TITLE\s+(.*)$/;
    my $title = $1;
    while (<STDIN>) {
        last unless /^TITLE\s+\d+\s+(.*)$/;
        $title .= $1
    }
    print "Here is the title you wanted: $title";
    last;
}