#!/usr/bin/perl

use strict;
use warnings;

my $true = 1;
my $false = 0;
my ($header, $history, $footer, @fields);
my ($vendor, $i);
my $file = "AUG.txt";
my @FILE;
my $vendor_id = 0;
my @VENDORS;
my @CONTRACTS;
my $contract_id = 0;
my @AWARDS;

open (INFILE, $file);
@FILE = <INFILE>;
close (INFILE);


foreach (@FILE){
   chomp;
   next if /^$/;
   if (/VENDOR.+PAGE/){
      @fields = split;
      $vendor_id++;
      #push @VENDORS,"$vendor_id $fields[1]\n";
      print "\n\nVENDOR \= $fields[1]\n";
      next;
   }
   elsif (/\s+?\S{17}\s+?\S+?\./){
      #push @CONTRACTS,"$vendor_id $_\n";
      @fields = split;
      print "   CONTRACT NUMBER  \= $fields[0]\n";
      print "   VENDOR PRICE     \= $fields[1]\n";
      print "   BASE PRICE       \= $fields[2]\n";
      print "   QTY              \= $fields[3]\n";
      print "   SHIP DATE        \= $fields[4]\n";
      print "   PR NUMBER        \= $fields[5]\n";
      print "   ARR NUMBER       \= $fields[6]\n";
      print "   DOLLAR VALUE     \= $fields[7]\n";
      print "   DOLLAR VARIENCE  \= $fields[8]\n";
      print "   PERCENT VARIANCE \= $fields[9]\n";
      print "\n";
      next;
   }
   elsif (/^\s+?\S{13}\s+?\S+?\s+?\S/){
      #print "$_\n";
      $_ =~ s/^\s*//;
      my @fields = unpack "a21 a9 a9 a2 a13 a8 a9 a9 a4 a5 a6", $_;

        print "      PIIN       \= $fields[0]\n";
        print "      FSCM       \= $fields[1]\n";
        print "      N/A        \= $fields[2]\n";
        print "      U/I        \= $fields[3]\n";
        print "      UNIT PRICE \= $fields[4]\n";
        print "      AWD DT     \= $fields[5]\n";
        print "      QTY        \= $fields[6]\n";
        print "      OPT DT     \= $fields[7]\n";
        print "      FOB        \= $fields[8]\n";
        print "      REP        \= $fields[9]\n";
        print "      TYPE       \= $fields[10]\n";
        print "\n";
   }
   else{
     $_ =~ s/^\s*//;
     if (/^\d{2}\s\d{3}/){
        print "$_\n";
     }
   }
}