open FILE, <myfile .... etc.
print grep /CALL|AUTHOR|TITLE/, <FILE>
CALL #  123
AUTHOR  JOE
TITLE   PERL  --- need line break after title
CALL   456
AUTHOR TERRY
TITLE  HELP