push @ten_digit_numbers, $1 while ($string =~ /(\d{10})/g);
print "found: @ten_digit_numbers\n";