Select Code to Download

^L

...
and here is data line 2
and 3 here
EOE

use strict;
use warnings;
...
   or die qq{close: $headerFile: $!\n};
close $detailFH
   or die qq{close: $detailFile: $!\n};

use strict;
use warnings;
...
   or die qq{close: $headerFile: $!\n};
close $detailFH
   or die qq{close: $detailFile: $!\n};

my $detailsLinesWritten = 0;

my @items = split m{\n}, $record, 17;

my $details = pop @items;
my $detailsLineCt = ($details =~ tr/\n//);

print $detailFH $details;
$detailsLinesWritten += $detailsLineCt;

sub stripSpaces
{
...
       ? $1
       : q{};
}

my $fld2  = q{Some company text};
my $fld3  = q{Some other company text};
...
my $fld5  = q{};
...
my $fld14 = q{};

my $fld1  = q{};
my $fld6  = q{};
...
my $fld15 = q{};

my ($fld1, $fld6, $fld7, $fld8, $fld11, $fld12, $fld15)
   = (q{}) x 7;

$fld1 = stripSpaces($items[6]);

# Pull out two dates from line 12 with a global match of
# 2 digits, a space, three letters, a space 4 digits. The
...
   =~ s{(\d\d)\s([A-Za-z]{3})\s\d\d(\d\d)}{$1 . $2 . $3}e;
($fld12 = $endPeriod)
   =~ s{(\d\d)\s([A-Za-z]{3})\s\d\d(\d\d)}{$1 . $2 . $3}e;

my $line3 = stripSpaces($items[1]);
my $line4 = stripSpaces($items[2]);
...
{
    $fld6  = $line4;
}

my $str1 = q{abc};
my $str2 = q{zyxwvut};
my $template = q{A5A5};
my $packed = pack $template, $str1, $str2;
print qq{>$packed<\n};

>abc  zyxwv<

my $hdrTemplate
   = q{A18}
...
   . q{A40}
   . q{A8}
   . q{A6};

my $headerStr = pack $hdrTemplate
   , $fld1
...
   , $detailsLinesWritten
   , $detailsLineCt;
print $headerFH qq{$headerStr\n};