$source=~s/&/&/g;