More Than One Way To Do It

local($/) = undef;
my $data  = <>;     # slurp the input

my @domains = ($data =~ m{http://(.*?)/}g);

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