@a=;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?