my @words = split /\W/, $sen;