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