$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 });