$line =~ s/(HEADER|REMARK)/mysub($1)/ge;