Submit a new solution for perl
There are 19 other solutions in additional languages (cpp, erlang, fsharp, groovy ...)