s{([^Z])?(Z*)$}{
    local $_ = ( $1 // 'Z' ) . $2;
    tr/BCDFGHJ-NP-TV-Z/CDFGHJ-NP-TV-ZB/;
    $_
}e;