my @words = split /\W+/, $string;