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