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!
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!