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