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