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

##</code><code>##

{
    local $" = ' ';  # just making sure - this is the default
    print "@{[grep {/$re/} <FILE>]}";
}