s/foo/bar/g;

##</code><code>##

sub s {
        my ( $obj, $pat, $sub ) = @_;
        $obj->{'content'} =~ s/$pat/$sub/g;
}

##</code><code>##

use overload
      "s" => \&s;