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