@i=<>;$x=length($i[0])-1;while($x--){print substr($i[$_],$x,1)for 0..$#i;print$/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page