$_[0]=~s/(\.|\-|\(|\)|\[|\]|\{|\}|\?|\/|\\|\^|\*)/\\$1/g;

##</code><code>##

$_ [0] =~ s!([][.(){}?/\\^*-])!\\$1!g;