Well, I work as a web hoster now, after many years of perling (10?) ; worked in datox, then Integra (merged into genuity), then Filnet since 2002. I should programm more publicly now (and less Q&D, by the way..); I am the author of this old po::em http://www.perlmonks.org/index.pl?node_id=24528 perl -e "($/=$=*($:+=++$:))++;print map(chr($/-$:*$_),(int($])**$:,$:,$&))"