$ngram_y2 = {};
for my $word (@large_wordlist) {
  ++ $$ngram_y2 {$_} for grep defined,
  "_${word}_" =~ / (?=(((((.).).).).)).
                |    (?=((((.).).).)) .
                |     (?=(((.).).))   .
                |      (?=((.).))     .
                |       (?=(.))       ./gx;
}