Select Code to Download

use strict;
use warnings;
...
my @matched = grep {! /^(\d)\1{9,}$/} $str =~ /\b(\d{10,})\b/g;

print "@matched";

1234567890 48192049281924

use strict;
use warnings;
...
    /gx;

print "@matched";