Re^5: Parse data from a line to get 2 variables

[Anonymous Monk]

\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