Decoding ASCII with Perl 

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