$var !~ /\D/;
liefert 'True' wenn $var nur numerische Werte enthält.
$var =~ /\D/;
Liefert 'True' wenn $var einen (oder mehrere) nicht numerischen Wert enthält.