FOO: $a = <STDIN>;
chomp($a);
$a =~ tr/0-9.//cd;
if (length($a) < 1) { print "Please enter a number\n"; goto FOO; }