Help for this page

Select Code to Download


  1. or download this
    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//
}
  2. or download this
    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//
}
  3. or download this
    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//
}