my ($prodid) = $code=~/"ProductId": "([^"]+)"/;