c:\@Work\Perl\monks>perl -wMstrict -le
"printf qq{%#02o \n}, ord 'l';
 printf qq{%#02o \n}, ord 't';
 printf qq{%#02o \n}, 0154 ^ 0164;
"
0154
0164
030