$foo=~s/\"/\\\"/g;