https://perl1liner.sourceforge.io/Perl-Weekly-Challenge