perl -ne 'print if /[^-,._aeiouy]{6,6}/i' /usr/share/dict/word