#!/usr/bin/env perl -l

use strict;
use warnings;
#use utf8;

use HTML::Entities qw{encode_entities};

my $dash = 'DASH: "-"';
my $emdash = 'EMDASH: "—"';
my $endash = 'ENDASH: "–"';

print encode_entities($_) for ($dash, $emdash, $endash);

##</code><code>##

DASH: &quot;-&quot;
EMDASH: &quot;&acirc;&#128;&#148;&quot;
ENDASH: &quot;&acirc;&#128;&#147;&quot;

##</code><code>##

DASH: &quot;-&quot;
EMDASH: &quot;&mdash;&quot;
ENDASH: &quot;&ndash;&quot;