while ($stamp =~ /\d{9,10}/g) {
    ...
}