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;