my $MAX_BYTES = 25;
my ($MIN_BPC, $MAX_BPC) = (1, 4);
my $MAX_CHARS = $MAX_BYTES / $MIN_BPC;