[Original thread: http://lists.olug.org/pipermail/olug/2006-July/018776.html] Tim Vidas wrote:
common jay ;-) perl -e '$s=$ARGV[0];$l=length $s;@a=pack "B$l",$s;print "@a\n"' 01101001011011000110111101110110011001010110110001101001011011100111010101111000
Tim, you typo'd that. Try: perl -e '$s=$ARGV[0];$l=length $s;@a=pack "B$l",$s;print "@a\n"' 011100000011001101010010011011000101001001110101010011000011001100110010 j Thanks, http://www.jayssite.com/stuff/l33t/l33t_translator.html