in reply to print spaces with grep

print map { /^TITLE/ ? "$_\n" : $_ } grep { /^(CALL|AUTHOR|TITLE)/ } <
+FILE>;

[download]

holli, regexed monk

In Section Seekers of Perl Wisdom