my $number =  <STDIN>;
chomp $number;

if ($number !~ /^\d+\.?\d*$/) {
	print "$number is not a number.\n";
	exit 1;
} else {
	print "$number is a number!\n";
}