sub fixutf8 {
  for (@_) {
    print "\$_=$_";  
    if (${^WIDE_SYSTEM_CALLS} && !is_utf8($_)) {
      $_ = decode_utf8($_); 
    }
    if(is_utf8($_)){
        print "#\$_=$_ is utf8\n";
    }else{
        print "#\$_=$_ is NOT utf8\n";
    }

  }
}