note
vladb
In your match try to use the special regexp anchors <code>^ and $</code>:
<code>
if ($input =~ /^[0-9]$/) {
print "input was a single digit number\n";
} else {
print "input wasn't a single digit number\n";
}
</code>
<br>
From the Perl regular expression tutorial (<a href="http://www.perldoc.com/perl5.8.0/pod/perlre.html">perlre</a>), the "^" and "$" are defined as:
<code>
^ Match the beginning of the line
$ Match the end of the line (or before newline at the end)
</code>
Unless they are used, Perl will look for a match anywhere within your <code>$input</code> string! ;-)
<br><br>
<b>Update:</b> threw in some perldoc definitions for your viewing pleasure :)
<br><br>
_____________________
<code>
# Under Construction
</code>
255779
255779