Perl being a glue language, this is a good Perl solution.

I mean, this is functional and all,

Right. What else do you need? It's functional, it's less than 10 lines of code. Be happy.

Abigail