Regular expression - range of numbers

[rjulich]

I am writing a perl program that takes the month of the year as input. I want to check the input and make sure it is a digital between 1 and 12 and if it not, keep looping until it is. Also, is it possible to check to see is the input is exactly between 1 and 12 (i.e. will accept 12 but not accept 12x)?

I have tried:

while($month !~ /^(1|2|3|4|5|6|7|8|9|10|11|12)/)
{
print "\n Enter month: ";
chomp($month = <STDIN>);
}

But that isn't working. Thanks in advance for the help.

Ray