my $euro = '€';
Dump \$euro;