#!/usr/bin/perl
use Encode qw( encode decode );
my $unicode_name_CURRENCY_SIGN = chr(0xa4);