Pop quiz: characters or bytes? 

• JSON

use utf8;
use open qw( :encoding(UTF-8) :std );
use JSON::XS qw(encode_json);

my $data = { price => '€9.99' };
my $json = encode_json($data);

say $json;

{"price":"�9.99"}