my $cnt = 0;
...
  $cnt++;
...
print $cnt, "\n";

##</code><code>##

print "$.\n";

##</code><code>##

my $filename = '$mainDir\test.txt';

##</code><code>##

my $filename = "$mainDir\test.txt";

##</code><code>##

my $mth_end = sprintf "%04d,%02d,%02d",$y,$m,Days_in_Month($y,$m);

##</code><code>##

printf OUT "                                  Placement    Release      Tot    Chg\n";
printf OUT "                                  Date         Date         Days   Days   Cost\n";

##</code><code>##

print OUT "                                  Placement    Release      Tot    Chg\n";
print OUT "                                  Date         Date         Days   Days   Cost\n";

##</code><code>##

  my @dates = split '\s+', $_;

##</code><code>##

  my @dates = split;

##</code><code>##

  if ($free >= 0) {
     my $amt = $free;
     my $cost = ($amt * 100);
     my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n";
     printf OUT $pfmt, $dates[0], $dates[1], $dates[2], $dates[3], fmt_mdy($dates[4]), fmt_mdy($dates[5]), $diff, $amt, fmt_curr($cost);
        }
   elsif ($free < 0) {
    my $amt = 0;
    my $cost = ($amt * 100);

    my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n"; 
    printf OUT $pfmt, $dates[0], $dates[1], $dates[2], $dates[3], fmt_mdy($dates[4]), fmt_mdy($dates[5]), $diff, $amt, fmt_curr($cost);
   }

##</code><code>##

  my $amt = $free < 0 ? 0 : $free;
  my $cost = $amt * 100;
  my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n";
  printf OUT $pfmt, @dates[ 0, 1, 2, 3 ], fmt_mdy( $dates[ 4 ] ), fmt_mdy( $dates[ 5 ] ), $diff, $amt, fmt_curr( $cost );

##</code><code>##

  $ymd =~ s/ //g;
#  return ' 'x10 if $ymd eq $NULL_DATE;
  my ($y,$m,$d) = split /\D/,$ymd;

##</code><code>##

  my ( $y, $m, $d ) = split /\D+/, $ymd;

##</code><code>##

  my ( $y, $m, $d ) = $ymd =~ /\d+/g;

##</code><code>##

while (<$file>) {
...
sub fmt_curr {
...
sub fmt_mdy {
...
}