and here's a probably slower, brute force perl variety: http://gist.github.com/149173