my @fetch = ($str =~
       m#
         (
          <IPDR>
          (?:(?!</IPDR>).)*
          test
          (?:(?!</IPDR>).)*
          </IPDR>
         )
        #sxgi);