use strict;
use warnings;
use utf8;  # comment this line out and it matches
use XML::RegExp;

my $name= 'timestamp';  # contains plain ASCII letters only!
my $result= $name =~ /^$XML::RegExp::Name$/o;
print "result is $result\n";