sub utf8toNative() {
    my $c = pack("C*",unpack("U*",$_[0]));
    return ((length($c)==length($u))?$_[0]:$c);