if( $message =~ /nonce\s+=\s+"([^"]+)"/ ){
    my $nonce= $1;
    print "Found nonce: $nonce\n";
} else {
    die "No nonce found in message:" . $message;
};