$page =~ / 
          productId=(\d+)
          [^>]*
          >
          ([^<]+)
          <
         /xig)