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

##</code><code>##

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