Decoding ASCII with Perl 

say chr(65);                        # A
say chr(0x41);                      # A
say chr(0b01000001);                # A

say 'A';

say "\x41";                         # A