my $c = {Data => substr $chars, $from, $upto - $from};
  unless ($upto - $from <= 0) { print "\n=> calling SUPER::characters with " . Dumper($c) . "\n"; }
  $self->SUPER::characters($c) unless ($upto - $from <= 0);