$data =~ 
  s/=for\sBASE_METHODS_START.*?
    =for\sBASE_METHODS_END
   /=for\sBASE_METHODS_START\n\n$otherpod\n\n=for BASE_METHODS_END/xgs;