map {printf"%3d %2x %2s|",$_,$_,$_<32?'^'.chr$_+64:$_<127?chr$_:'^?'} (0..127);

##</code><code>##

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