>
> Try this improvment code:
>
> #! /usrbin/perl
> use strict;
> use warnings;
>
> my $tmp=<STDIN>;
> chomp $tmp; # though it's not needed chomp it here, but you'd better
> to do this.
> if($tmp =~ /^\d{1}$/)
> {
> print"IT IS SINGLE DIGIT\n";
> } else{
> print"IT IS NOT SINGLE DIGIT\n";
> }
> Thank you so much...... Thanks, Siva
