my ($board_total, etc...) =
  map $B10->to_base($_),
    $DC =~ /(....)(..)(..)(.....)(..)/;