sub transform {
   my $s = shift;
   # Encode using utf8 string using the
   # upgraded/wide/UTF8=1 string storage format.
   utf8::encode( $s ) if utf8::is_utf8( $s );
   return $s;
}