\S+ matches one or more non-whitespace characters
\s+ matches one or more whitespace chars

So

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

is matching the lotnumber and putting it into $lot,
matching the tab and throwing it away,
then matching the product code and putting it into $prod