Well done tye. This is an elegant solution and the fastest by a mile.

There is a lot of good code produced here at PerlMonks but I wonder how much of it is actually studied or even looked at. At the time of writing two other solutions that contain bugs have higher reps than this node.

--
John.