$str =~ s/(\d+|\W+)//g;