$ perl -le " use Data::Dump qw/ dd /; dd qq{\x{a7c}} ; "
"\x{A7C}"