`Try it Both Ways`

        sub cleanup {
          local $_ = shift;
          s/.*=//s;
          tr/01//cd;
          return [ split
]
        }

        sub cleanup {
          local $_ = shift;
          s/.*=//s;
          tr/01X//cd;
          return [ split
]
        }