$i=0;while(@l=split("",<>)){print$l[$i];$i+=1}