Here's a perl version, which @griffman pointed out is sliiiightly snappier:
perl
For more information, see the wiki Searching the Forum for Answers section.