my $data = "MySite wine merchant
www.mysite2.com Award winning wines at great prices Money back satisfaction guaranteeSponsored Links"; my @output = ($data =~ /www.\S+\.com/g); print join ("\n", @output);