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";
    }
  }