my $currency = "\x{20AC}";   # The Euro symbol