PROMPT: {
	chomp($a = <STDIN>);
	$a =~ tr/0-9.//cd;

	unless (length($a))
	{
		print "Please enter a number\n";
		redo PROMPT;
	}
}