Unicode characters with Perl 

say chr(8364);                      # €
say chr(0x20AC);                    # €
say chr(0b0010_0000_1010_1100);     # €