Thank you

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use open qw(:std :utf8);

my $res;
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 } );
my $response = $ua->get("https://www.url.net/service/status");

if($response->decoded_content =~ /"messageType":"(.*?)","(.*?)"/mi )
{
$res=$1;
}

print "$res\n";
[download]