my $input = q(
MySi+te wine merchant www.mysite2.com Award winning wines at g+reat prices Money back satisfaction guarantee | <+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)>Sponsored Links
);
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