$ARGV[0]=~s{([2-9])}
           {'['.substr("abcdefghijklmnoprstuvwxy",3*($1-2),3).']'}eg;
exec 'grep', "^$ARGV[0]\$", '/usr/share/dict/words';