sub bowl {
    $_=pop;
    s#(\d)([\d/](?=(.)))|X(?=(..))|.#$3?"X$3":$4?"X$4":$1.$2#ge;
    s#\d/#/#g;
    map{(y./X.aa.)x hex}split//
}

##</code><code>##

sub bowl {
    $_=pop;
    s#(\d)(\d|/(?=(.)))|X(?=(..))|.#$3.$4?"X$3$4":$1.$2#ge;
    s#\d/#/#g;
    map{(y./X.a.)x hex}split//
}

##</code><code>##

sub bowl {
    $_=pop;
    s#(\d)(\d(?=.)|/(?=(.)))|X(?=(..))|.#$3.$4?"X$3$4":$1.$2#ge;
    s#\d/#/#g;
    map{(y./X.a.)x hex}split//
}