c00l.pl (C) 2000 Kyzer/CSG Purpose: make text cool/elite/funky (eg c00l/3l1t3/fUnKy) There is a special language, spoken by people on certain IRC channels, newsgroups and BBSes. It involves a few things: - using special words like 'elite', 'kick', '0-day warez' and 'lamer'. - changing words, eg ending plurals with 'z'. - using numbers, ascii drawings and high-bit ascii characters to replace individual characters. This perl script automates that. It reads text from files named on the command line or from stdin, and outputs the text in cool form. There are two steps to the script. One is an order-dependant list of search and replaces, which makes the words cool, then there is a character translation using random pluckings from a lists of translations for each letter of the alphabet. The dictionary isn't terribly punctuation-aware, but it works. It doesn't usually affect text too much, that's left to the character-swapping part. It's also specific to Amiga BBS speak circa 1990. Lexicons of any other locale would be most welcome.