List of Distributions                              
                                                                                
                  Produced Tuesday, 9 October, 2012 at 1:38 PM                  
                                                                                


       Order ID:PO-9999                  fiscal cycle:21112
      Vendor ID:VEND99                     order type:SUBSCRIPT 
    15)   requisition number:                      copies:9    
                call number:XX(9999999.999)                          
                  ISBN/ISSN:9999-999X           
         Title:Item title here.
         ISSN:9999-999X
         Publication info:More text here about stuff

        Distribution--
            packing list:STUFF-I-DONT-NEED-999      
            holding code:CODEINFO1                   copies:1    
           date received:27/6/2012                             date loaded:27/6/
2012              
        Distribution--
            packing list:STUFF-I-DONT-NEED-999
            holding code:CODEINFO3                    copies:2    
           date received:27/9/2012                             date loaded:27/6/
2012              
        Distribution--
            packing list:STUFF-I-DONT-NEED-999
            holding code:CODEINFO2                     copies:1    
           date received:25/8/2012                             date loaded:27/6/
2012              

##</code><code>##

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

##</code><code>##

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