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