...
    my @words = split /\W+/;
    ...