Decoding ASCII with Perl 

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

say 'A';

say "\x41";                         # A

say "\x48\x65\x6C\x6C\x6F\x21";     # Hello!