use LWP::UserAgent;

$ua = LWP::UserAgent->new;
my $resp = $ua->get("http://www.englishlink.com/index_ARE_HTML.asp");

if ($resp->is_success) {
    $mystring = $resp->content;            
    $mystring =~ s/.*\<title\>//sgi;
    $mystring =~ s/\<.*//sgi;
}

print "$mystring\n";

if ($mystring =~ m/[^\x00-\x7f]/) {
  print "Contains ASCII only\n";
} else {
  print "Contains non-ASCII\n";
}