+ for my $c (split //,$string) {
+ my $name = charnames::viacode(ord $c);
+ $name = sprintf("{%X}", ord $c) unless defined($name);
+ if (length($expansion) == 0) {
+ $expansion .= $name;
+ } else {
+ $expansion .= "; " . $name;
+ }
+ }
+
+ return $expansion;