($b+0) =~ /[1-5]/ and print "\$b has to be a number and is either 1, 2, 3, 4, or 5.";