while ( <FILE> ) {
    last if /^TITLE (.*)$/;
}

$title = $1;

while ( <FILE> ) {
    last if not /^TITLE (\d*) (.*)/;
    $title .= ' ' . $2;
}