Select Code to Download

## Slurp the file and break into sections
my @sections = split '-{103}', do{ local $/; <> };
close *ARGV;

sub buildFmt {
    my $templ = shift;
...
    $fmt .= 'A' . ( $_ - $p ) . ' ' and $p = $_ for @cols;
    return $fmt;
}

## Section 2
## Break the section into lines
...
my @homeTotals = unpack $fmt, shift @section2;
print "@homeTotals";

#! perl -slw
use strict;
...

## Section3 ...

c:\test>588245 boxscore_340251.txt
4 | Drevitch, Scott |  | 1 |  +1 | 4 |  |  |  |  |  |  |  |  |  |  |  
+|  |
...
41 | Sikich, Zach |  | 1 |   0 |  |  |  |  |  |  |  |  |  |  |  |  |  
+|
83 | Tapp, Jason |  |  |   0 |  |  |  |  |  |  |  |  |  |  |  |  |  |
   TOTALS | 4 | 8 |  -2 | 34 | 17 | 6 | 1 |  |  |  |  | 1 |  |  |  |  
+|