**Challenge 303 solutions in Perl by Matthias Muth**
(sorry, no blog post this week...) **Thank you for the challenge!**