Yes. You say that you want the data below POLYMORPH. Your code does not do that.

Perhaps an alternative approach is to load the contents of your input file into a scalar, split the scalar on 'POLYMORPH', and then if it is neccessary to tweak it further perform some regexes on the resulting list, before dumping it to your output file.

I hope this helps