print "$in wasn't a number!";input() unless $in =~ /\d/;
# is the same as
print "$in wasn't a number!";
input() unless $in =~ /\d/;
# what you want is
print("$in wasn't a number!"),input() unless $in =~ /\d/;