Здравствуйте, я работаю над этой командой
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})$}'
Эта команда предназначена для обнаружения только тех строк, у которых все символы принадлежат одной и той же последовательности чисел.
Как добавить исключение к этой команде, чтобы исключить последние или последние два символа в строке, принадлежащие последовательности?
Я хочу напечатать строки, которые также имеют свои последние или последние две цифры, которые не принадлежат последовательности в той же строке.