$ 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">