$line=s/~\s*([^~]*?) ~/$$1/ge;