in reply to Determine if character is numeric or text
#print "numeric" if $val is one character and it's a digit my $val = "3"; print "numeric\n" if($val =~ m/^\d$/); [download]
/J