#!/usr/bin/perl

use 5.010;

use strict;
use warnings;

use HTML::Entities qw[encode_entities_numeric];
my $string = "\x{20AC}";
my $encoded = encode_entities_numeric $string;

say $encoded;

__END__
€