my $pat = join ( '\\s+', (
       ('(\\S+)' x 15),
       '(\\d{1,3})',
       '(\\d+)',
    ));
    $pat = qr/\A$pat\z/;