perl -e "$a='Rob89$';print$a.':';$a=~s/(\W)/\\$1/g;print$a;"