#!/usr/bin/perl
$data = "
MySite wine merchant www.mysite2.com Award winning wines at great prices Money back satisfaction guarantee | Sponsored Links |
";
($domain1) = $data =~ /=ss\('go to (\S*)'\).*$/;
($domain2) = $data =~ /^.*=ss\('go to (\S*)'\)/;
$domain1 = "http://".$domain1;
$domain2 = "http://".$domain2;
print "Domain1 :: $domain1\n";
print "Domain2 :: $domain2\n";