[12:04][nick:~/monks]$ perl -Mstrict -Mutf8 -MHTML::Entities -E '
binmode STDOUT,":utf8";
> say encode_entities("Chimney—sweeper");
> say encode_entities("Chimney–sweeper");
> say decode_entities("Chimney—sweeper");
> say decode_entities("Chimney–sweeper");
> '
Chimney—sweeper
Chimney–sweeper
Chimney—sweeper
Chimney–sweeper