Select Code to Download

        my ($lot,$prod) = m/(\S+)\s+(\S+)/;

     $Info=$_;
     $lotNumber=substr($Info, 0,8);
     $productName=substr($Info, 9);