Encoding ASCII with Perl
say
ord
(
'A'
);
# 65