Not a large number of changes... perl -pi -e 's/Orig::Obj/Sub::Object/g' should do it. ;)

But it looks like there are simpler ways.