Interestingly, the Perl 5 and Perl 6 solutions to Challenge 24 task 1 in the Perl Weekly Challenge are identical.

My solution:

Detailed explanation for what each line does:

Information on how other languages handle this: see this blog post.