compare stdin for a number

anoxer has asked for the wisdom of the Perl Monks concerning the following question:

i wish to grab user entry as STDIN but accept it only if its a 5-digit number. whats the easiest way to do this? thanks!