if ($text =~ /\b(\d+)\b/) {
   print("Matched $1\n");
}