my $result = $example =~ s/foo/bar/r;