my $euro = "\N{EURO SIGN}";