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