$ perl -E '$x = ord(q{A});printf( join( qq{\t}, qw( %c %x %d ) ) . qq{\n}, ($x)x3 )' A 41 65