map{print@a,$_,$/for$x=pop@a,lc$x}@a=A..Z
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page