$pattern =~ s/(\W)/\\$1/g;