if ($i =~ 
    /
    .*?<b>([\w,\. ]+)<\/b>\&nbsp\;\&nbsp\;(\w+)\&nbsp
    .*?Last\ Sale:.*?\s+(\d+[0-9.]*)
    .*?Net\ Change.*?>(\d[.\d]*|unch).*?([\w_.]+)\.gif
    .*?Today\'s\ High:.*?\s+(\d+[0-9.]*)
    .*?Today\'s\ Low:.*?\s+(\d+[0-9.]*)
    .*?Volume:.*?<b>(\d+[0-9,]*)
    .*?Previous\ Close:.*?\s+(\d+[0-9.]*)
    .*?Market\s+(\w+)
    /sx)
      {
    do appropriate things.
[download]