@a=<DATA>;foreach(@a[00..014]){chop;s/ //g; push
@b,$_}for $9 (0..(length($a[0])-1)){$_=     join
('',map {substr$_,$9,1} @b);s/,.*$//;       push
@c,length;}print chr(012*(shift(@c))+      shift
(@c)) while @c;__DATA__                   divide
.............,.............,.............,.....,
...............,.....,.......,.........,......,.
.........,...............,.........,............
........,...............,.........,.............
.,.................,...,.......,............,...
.....,..........................................
.......,.........,...........................,..
,..,.......,...............................,....
..........................,......,..............
..........,..........................,..........
..................,.,.......,...,...,.....,.....
..,.,.,.....,.,.,.....,.......,.......,.,.......
................................................
Shouldn't it be 'monk' instead of 'hacker' here?
[download]