undef $i; 
print grep(s*^([a-z]{$i,})+$*$1*,@{[pack('aaaa',map{ lc chr } map{++$i==1?$_+9:$i==2?$=+5:$i==3?$_+13:$i==4?$_+$i:--$i;}(65..80))]});