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