# convert alpha mnemonics
$phone =~ tr/A-Za-z/2223334445556667Q7788899992223334445556667q778889999/;