$person->name;         # get the name
$person->name("Ovid"); # set the name

$person->name(do { (my $temp = $person->name) =~ s/Ovid/Juerd/; $temp });

$person->name($person->name . "\n");
$person->name(do { chomp(my $temp = $person->name); $temp });

##</code><code>##

$person->name;
$person->name = "Ovid";

$person->name =~ s/Ovid/Juerd/;

$person->name .= "\n";
chomp $person->name;