Hi Tom,

Try out the following regular expression:

my $data = "<tr><td id=tpa1 nowrap bgcolor=#e5ecf9 height=40 onMouseOv
+er=ss('go to www.mysite.com') onMouseOut=cs() class=ch onClick=ga(thi
+s,event)><a id=pa1 
href=/pagead/iclk?adurl=http://www.mysite.com&sa=l&ai=BRqXfIssAQqj8Ecf
+eRIXF7OQD2sdO4pmhjQGsqeEKgPEECAAQARgBKAI4AECKFkifOZgBgugAZDsuf8DyAEB 
+onMouseOver=return ss('go to www.mysite.com') onMouseOut=cs()><b>MySi
+te</b> wine merchant</a><font size=-1><br><span class=a>www.mysite2.c
+om</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Award winning wines at g
+reat prices&nbsp;&nbsp;Money back satisfaction guarantee</font></td><
+td id=spa1 class=ch bgcolor=#e5ecf9 height=40 align=right valign=top 
+onMouseOver=ss('go to www.mysite2.com') onMouseOut=cs() onClick=ga(th
+is,event)><font size=-1 class=f>Sponsored Links</font></td></tr>";

my @output = ($data =~ /www.\S+\.com/g);

print join ("\n", @output);
[download]

Mani.