$_ = '2222222222 1234567890 123 0000000000 48192049281924 99999999999999'; print "$2\n" while /\b(?!(\d)\1+\b)(\d{10,}\b)/g; __END__ 1234567890 48192049281924