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