use strict;
use Person;

my $person1 = Person->new;
$person1->name("goodname"); # pass a string literal
print "Good name: ", $person1->name(),"\n"; # the name is printed.


my $person2 = Person->new;
my $s = "badname";
if($s =~ /(.+)/){ #just to match anything
  $person2->name($1); # now pass $1, which is "badname"
}
print "Bad name:",$person2->name(),"\n"; # the name is lost!
__END__
Good name: goodname
Bad name: