Challenge 040 task 1

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-040/jo-37/perl/ch-1.pl b/challenge-040/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..39fbbb6e30
--- /dev/null
+++ b/challenge-040/jo-37/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -s
+
+use v5.16;
+use warnings;
+use List::MoreUtils 'zip6';
+
+die <<EOS unless @ARGV;
+usage: $0 [LIST...]
+
+LIST...
+    one or more lists of "items".  Items are separated by comma
+    and / or blanks.
+
+EOS
+
+
+# Split arguments at comma/space and combine the items from each list.
+# Need to circumvent zip6's prototype.
+say "@$_" for &zip6(map [split /[ ,]\s*/, $_], @ARGV);