use warnings;
use strict;
use LWP::Simple;

my @urls = (
    'http://www.google.es/',
    'http://www.perlmonks.org/',
    'http://es.wikipedia.org/',
);

foreach my $url (@urls) {
    my $content = get $url;
    $url =~ /\.(.*)\./;
    if ($content) {
        say "Received response from $1";
    } else {
        say "No response from $1, error ($!)";
    }
}