@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?