Something

#!/usr/bin/perl -w

use strict;
use DBI;
use DBD::mysql;
use POSIX;

my $date = strftime( "%Y%m%d", localtime time );
my $newinv = "newinv$date.txt";
my $usedinv = "usedinv$date.txt";

        open(NEWDUMP, $newinv) or die "New Car Inventory list not found.";

        our @newcar=<NEWDUMP>;

        print $newcar[0];

        my @subinv;
        foreach my $line (@newcar) {
                push @subinv,
                        join(",", grep {$_ ne " "} unpack("A4cA20cA36cA54cA63cA70cA77cA80cA90c", $line));
        }

        print $subinv[0];
        print "\n";