#perl -p s/([ '"$*?()\[\]])/\\$1/g;