sub n{ $n=shift;@l=('','',qw([abc] [def] [ghi] [jkl] [mno] [pqrs] [tuv] [wxyz]));$n=~s/./$l[$&]/ge;grep/^$n$/,@_ }