Ref_no     Supp_co Order_ Cat_num Carr_co Unit_pri Line_pric Ca User_ Auth_dat B



0312003620 SLUM02  M0551  RT3420    4.04     8.25      8.25  P  UFJGC 04/01/98 E
0312003619 SLUM02  M0550  RT3420    4.04     8.25      8.25  P  UFJGC 04/01/98 E
0312003617 SLUM02  M0548  RT3420    4.04     8.25      8.25  P  UFJGC 04/01/98 E
0312003616 SLUM02  M0547  RT3420    4.04     8.25      8.25  P  UFJGC 04/01/98 E
0312003684 SLUM02  M0615  RT3420    4.04    11.90     11.90  P  UFJGC 04/01/98 E
0312003613 SLUM02  M0544  RT3420    4.04    11.90     11.90  P  UFJGC 04/01/98 E
0312003586 SLUM02  M0517  RT3420    4.04    11.90     11.90  P  UFJGC 04/01/98 E

##</code><code>##

while ($line = <INPUT>) {
  chomp $line;
	
# Check for lines to be discarded or kept
  if (substr($line,0,9) =~ /[0-9]{9}/) {
# Lines are valid entries to be written to file if first 9 characters are 
# numeric, file used dependant on date of invoice details.	
   ($newline, $year) = validLine($line);
	  
    if ($year ne "02") {
      open (YEAR, ">>".$path."year$year.txt") || die "Cannot open file: $!\n";
      print YEAR "$newline\n";
      $y_count++;
      close YEAR  || die "Cannot close file: $!\n";
    } else {
      print OUTPUT "$newline\n";
      $o_count++;
    }
  } else {
    print DISCARD "$line\n";
    $d_count++;
    next;
  }	
}