$ perl -wle'$x="\x80"; for (1..2) { print unpack "H*", $x; utf8::upgrade($x); }'
80
80