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";
13 my ($colstep, $rowstep) = @_;
20 while ($row < $rows) {
22 $sum++ if substr($field, $row*$cols + $col, 1) eq '#';
27 print "$colstep x $rowstep, sum=$sum\n";