I would imagine that someone has already written one "just for the kicks" of it, but IMHO it is much more fun to write obfuscations that to read them. As a matter of fact, de-obfuscating someone's code is usually much easier that writting yours from scratch. Why would you want the fun part automized??

#!/home/bbq/bin/perl
# Trust no1!