my $reg = qr/ ^ (?\S+) \s+ (?\S+) \s+ (?\S+) \s+ \[ (?[^\]]*) \] \+s+ # TYPOS \k \z /x;