Einfachste Lösung für bedingte Zuweisung

[Beat]

Ich habe folgende Anweisung
$xxx = $myhash{'element1'};
element1 kann numerisch oder undefiniert sein.
Ich möchte den Wert aus dem Hash übernehmen, wenn numerisch, aber 0 zuweisen im anderen Fall.

Genauer: Entweder ist der Wert nicht vorhanden (undefiniert) oder er ist eine ganze, positive Zahl.

my $xxx = 0; #default
$myhash{'element1'} =~ /^(\d+)$/ and $xxx=$1;

mfg Beat