my $edocinU = join '', reverse $Unicode =~ m/\X/g;