>perl -wle"${\"} = chr $ARGV[0]; my @a = 1 .. 10; print qq[@a]" 9
1       2       3       4       5       6       7       8       9       10

>perl -wle"${\"} = chr hex $ARGV[0]; my @a = 1 .. 10; print qq[@a]" 0x9
1       2       3       4       5       6       7       8       9       10

>perl -wle"${\"} = chr oct $ARGV[0]; my @a = 1 .. 10; print qq[@a]" 11
1       2       3       4       5       6       7       8       9       10