my $req = HTTP::Request->new(GET => 'https://www.google.com');
$req->content_type('application/json');
my $res = $ua->request($req);

##</code><code>##

use LWP;
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'https://www.google.com');
$req->content_type('application/json');
my $res = $ua->request($req);

##</code><code>##

my $title;
$res->content =~ m|<title>(.+?)</title>|i and $title = $1;