This

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

fixes the problem. -- Joost downtime n. The period during which a system is error-free and immune from user input. </code>