$ perl -le'
   use Encode qw( encode is_utf8 );
   my $x = "\xC9ric";
   print is_utf8(encode("iso-8859-1", $x))?1:0;
'
0

$ perl -le'
   use Encode qw( encode is_utf8 );
   my $x = "\xC9ric";
   print is_utf8(encode("UTF-8", $x))?1:0;
'
0

##</code><code>##

$ perl -le'
   use LWP::UserAgent;
   print join " ",
      LWP::UserAgent->new
         ->get("http://www.google.ca/")->content_type;
'
text/html charset=ISO-8859-1

$ perl -le'
   use LWP::UserAgent;
   print join " ",
      LWP::UserAgent->new
         ->get("http://www.microsoft.com/")->content_type;
'
text/html charset=utf-8

##</code><code>##

$ perl -le'
   use LWP::UserAgent;
   my $html = LWP::UserAgent->new
      ->get("http://www.google.ca/")->decoded_content;
   print for $html =~ /(<meta[^>]*>)/ig;
'
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">