Shell Programming and Scripting

#!/usr/bin/perl -w
$PAGESIZE=52;
$HEADERSIZE=6;
$linenumber=0;
$intotals=0;
while (<>) {
  $linenumber++;
  if (/^Organisation Totals/) {
    $intotals=1;
  }
  if ($intotals) {
    print $_;
  } elsif ($linenumber % $PAGESIZE > $HEADERSIZE) {
    # Not within the header block so cut column 4 out
    #  keep up to char 58, drop 27 chars, keep everything else
    if (/^(.{58}).{27}(.*)$/) {
      print "$1$2\n";
    } elsif (/^(.{58}).{1-27}$/) {
      print "$1\n";
    } else {
      print $_;
    }
  } else {
    # It's within the header so print it all
    #  if you want headers omitted, comment out the following line
    print $_;
  }
}

    if (/^(.{58}).{27}(.*)$/) {

    if (/^(.{58}).{27}(.+)$/) {

#!/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 (/^(.{58}).{1-27}$/) {
      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 ">>>$_";
   }
}