map { s/[\?\.\!]*//g; } (@words = split /\s+/, <DATA>);