#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

use HTML::Entities qw/decode_entities/;
use Encode qw/encode/;
use URI::Escape qw/uri_escape/;

my $input = 'ε';
my $output = uri_escape(encode('UCS-2', decode_entities($input)));

say $output;