grabs stockquotes from nasdaq with a regex.
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.