my $object = SomeClass->new(digits => '123');

$object->nondigits = "abc";
$object->digits    = "123";
$object->anyvalue  = "abc123\n";

$object->anyvalue('archaic style still works');

my $john = Person->new(name => 'John Doe', age => 19);

$john->age++;
printf "%s is now %d years old", $john->name, $john->age;

##</code><code>##

Old:
$john->age($john->age + 1);
$john->name->(do { (my $n = $john->name) =~ s/Doe/Smith/; $n });

New:
$john->age++;
$john->name =~ s/Doe/Smith/;