regulärer ausdruck nur zahlen

[ich]

if($query =~ /[0-9]/) {
print $query;
print "<br>";
} else {
print "Sorry, verbotene Zeichen enthalten";
}

was mache ich falsch.

if($query =~ /^\d*$/) { print"Das sind nur Zahlen" } else { print"Nö" }

Alternativ

if($query =~ /\D/) { print"Nö" } else { print"Das sind nur Zahlen" }

gruß
ich