$_="AABDEGHILMNRSTWXY
BAEIOY
DEO
EDFHLMNRSTX
FAE
GO
HAEIMO
IDFNST
JO
KAI
LAIO
MAEIMOUY
NAEOU
ODEFHIMNPRSWXY
PAEI
QI
RE
SHIO
TAIO
UHMNPST
WEO
XIU
YAEO
ZA";s#(.)(.+)#join$",map{$1.$_}split//,$2#eg;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).