Select Code to Download

$ perl -wl
$x = "abc";
...
__END__
4-arg: b
3-arg: c

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