Help for this page
print map { chomp; $_ . /^TITLE/? "\n" : ' '; } grep { /$re/ } <FILE>;
{ local $" = ' '; # just making sure - this is the default print "@{[grep {/$re/} <FILE>]}"; }