do {
        die"$r\n"
    }unless $g=~s/(.)(.)/($1,$2)[rand(2)]/gex;
    redo