Shell Programming and Scripting

   else {
      # not sure what this might print if anything.
      # prefixed lines with '>>>' just to mark them for now	
      # to see if this condition is ever evaluated.
      my $n = length($_):
      print "length = $n: [$_]";
   }

#!/usr/bin/perl
use strict;
use warnings;

while (<>) {
   # header lines
   if ($. < 7) {
      print; # comment out this line to delete header lines
      next;
   }
   # print the totals, assumes they are at the end
   if (/^Organisation Totals/) {
      print;
      print <>;
      exit;
   }
   # remove 4th column
   if (/^(.{58}).{27}(.+)$/) {
      print "$1$2\n";
   }
   # remove 4th column when its the only thing
   elsif (/^\s{58}).{1-27}\s*$/) {
      print "$1\n";
   }
   else {
      # not sure what this might print if anything.
      # prefixed lines with '>>>' just to mark them for now	
      # to see if this condition is ever evaluated.
      print ">>>$_";
   }
}