Extract english words following a given pattern

test.clj

;; List from http://www-01.sil.org/linguistics/wordlists/english/wordlist/wordsEn.txt
(defn find-words []
  (->> "wordsEn.txt"
       slurp
       clojure.string/split-lines
       (filter #(re-matches #"^s.a..$" %))))

;; Output
("scabs" "scads" "scags" "scald" "scale" "scalp" "scaly" "scamp" "scams"
 "scans" "scant" "scape" "scare" "scarf" "scarp" "scars" "scary" "scats"
 "seals" "seams" "seamy" "sears" "seats" "shack" "shade" "shads" "shady"
 "shaft" "shags" "shahs" "shake" "shako" "shaky" "shale" "shall" "shalt"
 "shaly" "shame" "shams" "shank" "shape" "shard" "share" "shark" "sharp"
 "shave" "shawl" "shawm" "shawn" "shaws" "shays" "skags" "skald" "skate"
 "slabs" "slack" "slags" "slain" "slake" "slams" "slang" "slant" "slaps"
 "slash" "slate" "slats" "slaty" "slave" "slavs" "slaws" "slays" "smack"
 "small" "smart" "smash" "snack" "snafu" "snags" "snail" "snake" "snaky"
 "snaps" "snare" "snark" "snarl" "soaks" "soaps" "soapy" "soars" "soave" 
 "space" "spade" "spain" "spake" "spale" "spank" "spans" "spare" "spark"
 "spars" "spasm" "spate" "spats" "spawn" "spays" "stabs" "stack" "staff"
 "stage" "stags" "stagy" "staid" "stain" "stair" "stake" "stale" "stalk"
 "stall" "stamp" "stand" "stank" "staph" "stare" "stark" "stars" "start"
 "stash" "state" "stats" "stave" "stays" "suave" "swabs" "swage" "swail"
 "swain" "swale" "swami" "swamp" "swang" "swank" "swans" "swaps" "sward"
 "swarm" "swart" "swash" "swath" "swats" "sways")