$string =~ s/\d{1,9}//g;
$string =~ s/\d{11,}//g;
$string =~ s/\D//g;
[download]

Note: If your $string starts with 3 10 digit numbers, you will end up with one thirty digit number when you are done. Probably not such a big deal since you know the exact size of each number