use POSIX;print+(POSIX::strtol((unpack B8,chr),3))[0],$/for 0..104
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page