5.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $field = do { local $/; <> };
   6 my $rows = $field =~ s/\s//g;
   7 my $flen = length $field;
   8 my $cols = $flen/$rows;
   9
  10 print "Field has $flen bytes, in $rows rows and $cols cols\n";
  11
  12 my $step = $cols + 2;
  13
  14 my $col = 0;
  15 my $sum = 0;
  16 for my $row (0 .. $rows-1) {
  17         $sum++ if substr($field, $row*$cols + $col, 1) eq '#';
  18         $col += 3;
  19         $col %= $cols;
  20 }
  21 print "sum=$sum\n";
  22
  23
  24