Hi Tom,

Assume that $data has the long string you've specified and try out the following regexp:

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

print join ("\n", @output);

Mani