print map { /^TITLE/ ? "$_\n" : $_ } grep { /^(CALL|AUTHOR|TITLE)/ } < +FILE>; [download]
In reply to Re: print spaces with grep by holli in thread print spaces with grep by Anonymous Monk