binmode(STDOUT, ":utf8");
my $bytes = pack "CCC", 0xE2, 0x82, 0xAC;
utf8::decode($bytes);
if ($bytes =~ m/\p{Currency_Symbol}/ ) {
    print "$bytes is a currency symbol\n";
}