Perl Weekly Challenge - 067

Monday, Jun 29, 2020| Tags: Perl, Raku


The highlight of last week was mostly the much awaited event “Conference in the Cloud”. I must admit, I enjoyed every bit. It was nice to see so many familiar names from Team PWC in the audience. Among many talks, I was really happy to watch Damian Conway live for the first time.

Colin Crain final joined the team of reviewers and submitted first Perl Review. Please do share your comments and suggestions.

I continued my live coding sessions and shared the following YouTube videos:

a) Divide Integers

b) Power Integers

Thanks to the Chief Editor of Perl Weekly newsletter, Gabor Szabo, I now have 67 subscribers to my YouTube channel. Prior to that, I had just 20 subscribers. So thank you Gabor Szabo. We got a new member because of these YouTube videos. GitHub user 3ter joined us last week.


Last but not the least, I would like to thank each and every member for their support and encouragement.


Quick recap of the “Perl Weekly Challenge - 066” by Mohammad S Anwar.


Please checkout Perl solutions review of the “Perl Weekly Challenge - 065” by Colin Crain.

If you missed any past reviews then please checkout the collection.


If you missed any past reviews then please checkout the collection.


Please take a look at the charts showing interesting data.

I would like to thank every member of the team for their valuable suggestions. Please do share your experience with us.



GitHub user 3ter joined the Team PWC.

Niels van Dijke

I remember I started using Perl on a UNIX server in 1994 version 4.036. Didn’t like it that much coming from a awk/grep/etc. scripting environment. Because I was assigned to another project for a while I rediscovered Perl at a 5.x version in 1995-ish. Much better! Used it for a while on Windows NT 4 workstation with 16MiB RAM. Oh boy the good old days where people seriously struggled with ASCII files of 4-8MiB! Since 1995 Perl has been my swish army knife. I’ve used Perl for instance for:

  1. Sysadmin tasks
  2. Web front-end development (CGI, mod_perl, Apache::ASP)
  3. Apache mod_perl custom authentication and authorization modules
  4. PostgreSQL stored procedures
  5. Network management tools (template techniques, parallelism, configuration audits, etc.)

Because I work for a commercial company my CPAN activity has been really low. It was not always clear to me how much OSS principles were embraced by senior management.

I use computers since I was 11 years old. My dad borrowed a ‘Commodore PET’ from work. I remember I was able to code ‘tic-tac-toe’ in BASIC the week we had it at home. My first own computer was a MSX2. I have studied ‘Technical Computer Science’ in The Netherlands (design hardware and write operation system device drivers etc.). Besides notebooks I’ve always build by own desktop PCs. A new one based on a AMD Ryzen 3700x CPU will be ordered shortly in parts.

Besides Perl I’ve written software in: (several sorts of) BASIC, PASCAL, FORTRAN, Assembler (6800, 68000, z80, x86), C, C++, awk, Korn/bash shell, Javascript, SQL and Power Shell.

Please find out How to contribute?, if you have any doubts.

Please give it a try to an excellent tool EZPWC created by respected member Saif Ahmed of Team PWC.


Steven Wilson shared solution to Task #1 in Rust.

Walt Mankowski shared solutions to Task #1 and Task #2 in Python.

Please find out past solutions by respected guests. Please do share your creative solutions in other languages.

TASK #1 › Number Combinations

Submitted by: Mohammad S Anwar

You are given two integers $m and $n. Write a script print all possible combinations of $n numbers from the list 1 2 3 … $m.

Every combination should be sorted i.e. [2,3] is valid combination but [3,2] is not.


  Input: $m = 5, $n = 2

  Output: [ [1,2], [1,3], [1,4], [1,5], [2,3], [2,4], [2,5], [3,4], [3,5], [4,5] ]

TASK #2 › Letter Phone

Submitted by: Mohammad S Anwar

You are given a digit string $S. Write a script to print all possible letter combinations that the given digit string could represent.

Letter Phone


  Input: $S = '35'

  Output: ["dj", "dk", "dl", "ej", "ek", "el", "fj", "fk", "fl"].

Last date to submit the solution 23:59 (UK Time) Sunday 5th July 2020.


If you have any suggestions or ideas then please do share with us.

Contact with me