Select Code to Download

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