package StringObject;

use strict;
use warnings;

use overload q{""} => \&to_string;

sub new {
  my ($class, $string) = @_;
  return bless \$string, $class;
}

sub s {
  my ($self, $match, $substitute) = @_;
  $$self =~ s/$match/$substitute/;
  return $self;
}

sub to_string {
  my ($self) = @_;
  return $$self;
}

1;

##</code><code>##

use strict;
use warnings;

use StringObject;

my $s1 = StringObject->new("the boy walked the dog");
print $s1, "\n";

$s1->s('walked', 'fed')->s('boy', 'girl')->s('dog', 'Audrey II');
print $s1, "\n";

exit;