Hotscripts always has a ton of scripts to choose from. There are a ton at their Perl discussion board listing.

http://www.hotscripts.com/Perl/Scripts_and_Programs/Discussion_Boards/

Quinn Slack
perl -e 's ssfhjok qupyrqs&&tr sfjkohpyuqrspitnrapj"hs&&eval&&s&&&'