use strict;
use warnings;
use Test::More;

my $field_correct = "1624498086 13 27632 60597490 1683 2853 3227 883179 120 386 123";
my $field_broken_short = "1624498086 13 27632 60597490 1683 2853 3227 8831";
my $field_broken_long = "1624498086 13 27632 60597490 1683 2853 3227 883179 120 386 123 123";
my $re = qr{^\d{10,} \d{1,2} \d+ \d+ \d+ \d+ \d+ \d+ \d+ \d+ \d+$};
my @array_broken = ($field_correct, $field_broken_short, $field_broken_long);
my @array_correct = ($field_correct, $field_correct);

# All the element should match here.
ok(grep($re, @array_correct) == @array_correct, 're+array_correct');
ok(grep(/$re/, @array_correct) == @array_correct, '/re/+array_correct');

# Only one element should match here.
ok(grep($re, @array_broken) == 1, 're+array_broken');
ok(grep(/$re/, @array_broken) == 1, '/re/+array_broken');