Hi, just try this

my $input = q(<tr><td id=tpa1 nowrap bgcolor=#e5ecf9 height=40 onMouse
+Ov+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>My
+Si+te</b> wine merchant</a><font size=-1><br><span class=a>www.mysite
+2.com</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Award winning wines a
+t 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></t
+r>);

my @arr=();

while($input=~m#((http://)*www.+?\.\w+) ?'?#gsi)
{
push(@arr, $1);
}

print "$_\n" for @arr;

#outputs in @arr:

www.mysite.com
http://www.mysite.com
www.mysite.com
www.mysite2.com
www.mysite2.com
[download]