$a =~ s/(\W|_)//g;