my ($digits) = $name =~ /$re/;