sub Regch{ $_[0]=~s/(\.|\-|\(|\)|\[|\]|\{|\}|\?|\/|\\|\^|\*)/\\$1/g; $_[0]=~s/([a-zA-Z])/[$1]/g; return $_[0]; }