my @words = map {s/[.,!\W\?]\B//g; split; } <FILE>;