Select Code to Download

s/foo/bar/g;

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

use overload
      "s" => \&s;