my $good = join '', $bad =~ m/(\w+)/g;
my $good = $bad =~ s/\W+//gr;