История изменений
Исправление annulen, (текущая версия) :
Обобщение для блоков из N чисел:
N=2 perl -ne '/^((\d)\2{$ENV{N}})+$/ && print' numbers.txt
Обобщение для блоков произвольной длины от 2 и выше:
perl -ne '/^((\d)\2{1,})+$/ && print' numbers.txt
Исходная версия annulen, :
Обобщение блоков из N чисел:
N=2 perl -ne '/^((\d)\2{$ENV{N}})+$/ && print' numbers.txt
Обобщение для блоков произвольной длины от 2 и выше:
perl -ne '/^((\d)\2{1,})+$/ && print' numbers.txt