5 my $field = do { local $/; <> };
6 my $rows = $field =~ s/\s//g;
7 my $flen = length $field;
8 my $cols = $flen/$rows;
10 print "Field has $flen bytes, in $rows rows and $cols cols\n";
16 for my $row (0 .. $rows-1) {
17 $sum++ if substr($field, $row*$cols + $col, 1) eq '#';