case (/LotID/i)        {
                @lotid = split( /-/, $array[1] );
                $lotid = "$lotid[0]";
                 # fetch the part matching Lot#XXX where XXX is one or more digits, or die if that doesn't work
                ($lotid) = $lotid =~ /(Lot#\d+)/ or die "lotid isn't correctly formatted";
                $wafer_flow = "$lotid[1]-$lotid[2]";
            }