print "$in was not a number!"; input() unless $in =~ /\d/;

##</code><code>##

    		$in;

##</code><code>##

$in =~ /\d/ ? $in : print "$in was not a number!";

##</code><code>##

$in !~ /\D/