s/(.)(.
.)|(
.
.
)(.)/$2$1$4$3/ for($_='AE
B
C
D')x<>;print