function ascii
{
    perl -e '
        map {
            printf q{%3d %2X %2s|%s}, $_, $_,
                $_<32 ? q{^}.chr($_+64) : $_<127 ? chr : q{^?},
                ($_+1)%8 ? q{} : $/
        } 0..127
    '
}