Posted here to ensure it comes to the OPs attention.

Replace the regex used by the pattern building code with

    while $mask =~ m[([^ ]+)( +|$)]g;
[download]

That is, replace \S and \s with literal spaces as the ORing process can generate chr(9) and other characters that would be treated as whitespace and so create false columns.