(my $result=$example) =~ s/foo/bar/;