my $req = HTTP::Request->new(GET => $server_endpoint);
my $resp = $ua->request($req);
    my $message = $resp->decoded_content;

$message =~ m/nonce/i;
 print " starts: @- \n ends:  @+ \n";