I did that, then I did it again, and again ... the results are at http://crazyinsomniac.perlmonk.org/perl/index/ (started off much like merlyn's version ... i rewrote it the next year, and the year after that ... right now i'm making myself a module)

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"