http://www.perlmonks.org?node_id=653793

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

Revered Monks,
Apologize for this silly question. I need to match a number other than 1. The input can be even four or five digit. But it should allow when it is not number 1
-Prasanna.K