...
 my $reg = qr{ ^((?>\d+)) (??{ !!($1 % 3) and '(?!)' }) }x;
 ...