Try:
while ($results =~ m#(<p><a href=(.+?)>(.+?)</a><br><font size=-1>(.+?)(<br><span class=f><font size=-1>Description:</font></span>)(.+?))?<br>#sog) {
while ($results =~ m#(<p><a href=(.+?)>(.+?)</a><br><font size=-1>(.+?)(<br><span class=f><font size=-1>Description:</font></span>)(.+?))?<br>#sog) {