Added my Perl implementation. Probably not as effective as it could be but gets the job done.