$ perl -MEncode -E'
   $x = chr(0x2660);
   $y = encode($ARGV[0], chr(0xC9));
   say sprintf "%vX.%vX %vX", $x, $y, $x.$y;
' iso-latin-1
2660.C9 2660.C9

$ perl -MEncode -E'
   $x = chr(0x2660);
   $y = encode($ARGV[0], chr(0xC9));
   say sprintf "%vX.%vX %vX", $x, $y, $x.$y;
' UTF-8
2660.C3.89 2660.C3.89