sub force_utf8 {
  chop( $_[0] .= "\x{100}" };
}