print map {
     chomp;
     $_ . /^TITLE/? "\n" : ' ';
} grep { /$re/ } <FILE>;