$a =~ s/(\W)/\\\1/g;
# or
    $a =~ s/(\W)/\\$1/g;