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