Select Code to Download

...
            holding code:CODEINFO2                     copies:1    
           date received:25/8/2012                             date lo
+aded:27/6/
2012

open (IN, "<$distfile") or die "Can't open $distfile\n";
print "File opened\n";
while ($line = <IN>) {
...
    print "Found Order ID\n";
    }
  }

  my ($order,$fiscal) = ($line !~ m/(\s+Order ID:|\s+fiscal cycle:)/g)
+;
  print "Order # $order, Fiscal year: $fiscal\n";