在此命令中添加排除项

Question

您好，我正在使用此命令

 perl -lne 'print if m{^(\d+)(\d+)(?=(.+$))(??{
 my $i = $2; my $r; my $l = length $3; my $incr = $2 - $1;
 while (length($r) < $l) {$i += $incr; $r .= $i}; $r})$}'    

此命令仅用于检测所有字符都属于同一数字序列的行。

如何在此命令中添加排除项以排除属于该序列的行中的最后两个字符？

我要打印最后两位或最后两位数字不属于同一行中序列的行。