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


in reply to character test functions

Here is one way, for non-Unicode strings:
my $alpha = 'J'; my $num = '3'; $alpha =~ /^ [[:alpha:]] $/x and print 'correct'; $alpha !~ /^ [[:digit:]] $/x and print 'correct'; $num =~ /^ [[:digit:]] $/x and print 'correct'; $num !~ /^ [[:alpha:]] $/x and print 'correct';