sub FETCH { my $self=shift; substr($self->{string}, $self->{length}, $self->{offset}) }
sub STORE { my ($self, $new) = @_; substr($self->{string}, $self->{length}, $self->{offset}, $new) }