您没有使用Perl;您使用的是RE 2，虽然它与Perl类似，但它是not quite compatible。
具体来说，它不能处理你提供的模式。这就是消息所说的。你需要提供RE 2可以处理的东西。
以下为相关部分：

^(?:(\d)(?!\1{2}))\d{4,15}$

在Perl中，它检查一个5-16位数的字符串，该字符串后面可以选择性地跟随换行符，但要注意前三位数不能相同。
这与[1]等效，并将在RE 2中工作：

^
(?: 0 (?: 0 [1-9]    | [1-9]    [0-9] )
|   1 (?: 1 [02-9]   | [02-9]   [0-9] )
|   2 (?: 2 [0-13-9] | [0-13-9] [0-9] )
|   3 (?: 3 [0-24-9] | [0-24-9] [0-9] )
|   4 (?: 4 [0-35-9] | [0-35-9] [0-9] )
|   5 (?: 5 [0-46-9] | [0-46-9] [0-9] )
|   6 (?: 6 [0-57-9] | [0-57-9] [0-9] )
|   7 (?: 7 [0-68-9] | [0-68-9] [0-9] )
|   8 (?: 8 [0-79]   | [0-79]   [0-9] )
|   9 (?: 9 [0-8]    | [0-8]    [0-9] )
)
[0-9]{2,13}
\n?
\z

我不知道RE 2，所以可能有一个更好的解决方案。
1.假设\d应该匹配[0-9]，实际上匹配的要多得多。