use TeX;
use strict;
use warnings;
use charnames ':full';
#binmode( STDOUT, ':utf8' );

#sub TeX2utf8 {
#    local $_ = shift;


my $a = 'Asdf';
my $b = 'asdf';

print( ($a =~ /\p{Lu}\p{Ll}/) . "\n" );
print( ($b =~ /\p{Lu}\p{Ll}/) . "\n" );

exit;

$a = "{\\'a}{\\v c}{\\v d}{\\v e}{\\'e}{\\'i}{\\v n}{\\'o}{\\v r}" .
    "{\\v s}{\\v t}{\\'u}{\\'y}{\\v z}\n" .
    "{\\'A}{\\v C}{\\v D}{\\v E}{\\'E}{\\'I}{\\v N}{\\'O}{\\v R}" .
    "{\\v S}{\\v T}{\\'U}{\\'Y}{\\v Z}\n";


$a = $a . $a .$a . $a;
$a = $a . $a .$a . $a;

my ($b,$c);
my $t1 = time();
$t1 = time();
for( my $i = 1; $i< 1000; $i++ ) {
    $b = TeX::tex2utf8( $a );
}
my $t2 = time();
for( my $i = 1; $i< 1000; $i++ ) {
    $c = TeX::TeX2utf8( $a );
}
my $t3 = time();
print( STDERR ( $t2-$t1) . "|" . ($t3 - $t2) . "|" ) ;

print $a;
print $b;
print $c;
