D:\perl\work>perl -e "$_='MA()A))Y#4';tr/MA()Y#4/1234567/;print"
1234244567