OLD SITUATION           NEW SITUATION

$foo->bar;              $foo->bar;
$foo->bar(15);          $foo->bar = 15;
{
  my $temp = $foo->bar;
  $temp =~ s/foo/bar/;
  $foo->bar($temp);
}                       $foo->bar =~ s/foo/bar/