use strict;
use warnings;

my $url='https://github.com';
use LWP::UserAgent;
use Encode qw(is_utf8);
use Data::Dumper;

my $useragent = LWP::UserAgent->new();
my $request = new HTTP::Request;
$request->method("GET");
$request->url($url);
my $response = $useragent->request($request);

my $data = $response->decoded_content();
print "1: ",is_utf8($data),"\n";
$data = substr($data,0);
print "2: ",is_utf8($data),"\n";

# Prints:
1: 1
2: