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.