If this is a class implementation rather than client code, and if you can move over to Class::Accessor-land, you can use Class::Accessor::Ref for this kind of thing.

${ $self->_ref_content } =~ s/foo/bar/g;
[download]