From 0691e05a6750e20c750d46bb4488a574bb147d8a Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Wed, 21 Apr 2021 13:00:56 +0100
Subject: change the n-1 to n/2 or (rather n>>1) ~ 50% faster - approx 80K
 calcs per second for the for loop version

---
 challenge-109/james-smith/perl/ch-1.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/challenge-109/james-smith/perl/ch-1.pl b/challenge-109/james-smith/perl/ch-1.pl
index 1b89226a6a..c7820fb3d2 100644
--- a/challenge-109/james-smith/perl/ch-1.pl
+++ b/challenge-109/james-smith/perl/ch-1.pl
@@ -19,7 +19,7 @@ is( chowla_for($_), $answer[ $_ ] ) foreach 1..20;
 done_testing();
 
 ## We will quickly run benchmarking...
-## This suggests the for loop to be approximately 40-50%
+## This suggests the for loop to be approximately 40%
 ## faster than the map solution...
 ## It is also 9 characters shorter...
 
@@ -30,15 +30,15 @@ cmpthese(1_000_000, {
 
 ##
 ##        Rate  Map  For
-## Map 38670/s   -- -33%
-## For 57670/s  49%   --
+## Map 59524/s   -- -26%
+## For 79936/s  34%   --
 ##
 
 sub chowla_map {
   my ($t,$n) = (0,@_);
 ## First attempt - the one-liner is to write this as a map,
 ## we add $t at the end which is the value returned
-  ( map { (($n%$_) || ($t+=$_)) && () } 2..$n-1 ), $t;
+  ( map { (($n%$_) || ($t+=$_)) && () } 2..$n>>1 ), $t;
 }
 
 sub chowla_for {
@@ -56,7 +56,7 @@ sub chowla_for {
   ##      ($condition)||($fun())
   ##  * in perl `foreach` and `for` are synonymous - so we can shorten
 
-  ($n%$_)||($t+=$_) for 2..$n-1;
+  ($n%$_)||($t+=$_) for 2..$n>>1;
 
   ## Now a quick "shortening" - if there is no specific return
   ## statement - we can just omit the return in the last statement...
-- 
cgit 


From c6f8f5b8fc12980a57f4db78f1da65523ccce32f Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Mon, 26 Apr 2021 10:58:27 +0800
Subject: Remove extra line

---
 challenge-109/cheok-yin-fung/java/NBoxesJavaFX.java | 2 --
 1 file changed, 2 deletions(-)

diff --git a/challenge-109/cheok-yin-fung/java/NBoxesJavaFX.java b/challenge-109/cheok-yin-fung/java/NBoxesJavaFX.java
index ad507def6e..3ae566171b 100644
--- a/challenge-109/cheok-yin-fung/java/NBoxesJavaFX.java
+++ b/challenge-109/cheok-yin-fung/java/NBoxesJavaFX.java
@@ -122,8 +122,6 @@ public class NBoxesJavaFX extends Application
             group.getChildren().add(shape[i]);
         }
 
-        Rectangle shape1 = new Rectangle();
-
         Text[] text = new Text[M];
         Font font = Font.font("verdana", FontWeight.BOLD, FontPosture.REGULAR, 15); 
         for (int j=0; j<M; j++) {
-- 
cgit 


From b717aee4ff26c334b1b922fab597147719175c0f Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 26 Apr 2021 00:56:32 -0600
Subject: initial

---
 challenge-110/mark-anderson/raku/ch-1.raku | 6 ++++++
 challenge-110/mark-anderson/raku/ch-1.txt  | 5 +++++
 challenge-110/mark-anderson/raku/ch-2.raku | 5 +++++
 challenge-110/mark-anderson/raku/ch-2.txt  | 5 +++++
 4 files changed, 21 insertions(+)
 create mode 100644 challenge-110/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-110/mark-anderson/raku/ch-1.txt
 create mode 100644 challenge-110/mark-anderson/raku/ch-2.raku
 create mode 100644 challenge-110/mark-anderson/raku/ch-2.txt

diff --git a/challenge-110/mark-anderson/raku/ch-1.raku b/challenge-110/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..c0fc86e49e
--- /dev/null
+++ b/challenge-110/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/usr/bin/env raku
+
+.say for "ch-1.txt".IO.lines
+
+.grep(/ ^ [ \s\+\d\d | \(\d\d\) | \d\d\d\d ] \s \d**10 $ /);
+
diff --git a/challenge-110/mark-anderson/raku/ch-1.txt b/challenge-110/mark-anderson/raku/ch-1.txt
new file mode 100644
index 0000000000..48d6254741
--- /dev/null
+++ b/challenge-110/mark-anderson/raku/ch-1.txt
@@ -0,0 +1,5 @@
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
diff --git a/challenge-110/mark-anderson/raku/ch-2.raku b/challenge-110/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..e2cd9534d7
--- /dev/null
+++ b/challenge-110/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/usr/bin/env raku
+
+say .map(*.join(",")).join("\n") given 
+    
+[Z] "ch-2.txt".IO.lines.map(*.split(",")); 
diff --git a/challenge-110/mark-anderson/raku/ch-2.txt b/challenge-110/mark-anderson/raku/ch-2.txt
new file mode 100644
index 0000000000..716ebdce75
--- /dev/null
+++ b/challenge-110/mark-anderson/raku/ch-2.txt
@@ -0,0 +1,5 @@
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
-- 
cgit 


From 653e1766c721fd92f84d36ecca8a811b727dacce Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 26 Apr 2021 00:59:07 -0600
Subject: initial

---
 challenge-110/mark-anderson/raku/ch-1.raku | 1 -
 1 file changed, 1 deletion(-)

diff --git a/challenge-110/mark-anderson/raku/ch-1.raku b/challenge-110/mark-anderson/raku/ch-1.raku
index c0fc86e49e..aaeb60658b 100644
--- a/challenge-110/mark-anderson/raku/ch-1.raku
+++ b/challenge-110/mark-anderson/raku/ch-1.raku
@@ -3,4 +3,3 @@
 .say for "ch-1.txt".IO.lines
 
 .grep(/ ^ [ \s\+\d\d | \(\d\d\) | \d\d\d\d ] \s \d**10 $ /);
-
-- 
cgit 


From 4349ac4778e200e3a5865ddd94b3b044deee7f54 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Apr 2021 09:05:09 +0200
Subject: Task 1 done

---
 challenge-110/luca-ferrari/raku/ch-1.p6   | 10 ++++++++++
 challenge-110/luca-ferrari/raku/phone.txt |  5 +++++
 2 files changed, 15 insertions(+)
 create mode 100644 challenge-110/luca-ferrari/raku/ch-1.p6
 create mode 100644 challenge-110/luca-ferrari/raku/phone.txt

diff --git a/challenge-110/luca-ferrari/raku/ch-1.p6 b/challenge-110/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..2eee9c781f
--- /dev/null
+++ b/challenge-110/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,10 @@
+#!raku
+
+
+sub MAIN( Str $file-name = 'phone.txt' ) {
+    my @regexps = rx / ^ \s* <[+]> \d ** 2 \s+ \d ** 10 $ /
+                , rx / ^ \s* <[(]> \d ** 2 <[)]> \s+ \d ** 10 $ /
+                , rx / ^ \s* \d ** 4 \s+ \d ** 10 $ /;
+
+    say $_ if $_ ~~ any @regexps for $file-name.IO.lines;
+}
diff --git a/challenge-110/luca-ferrari/raku/phone.txt b/challenge-110/luca-ferrari/raku/phone.txt
new file mode 100644
index 0000000000..48d6254741
--- /dev/null
+++ b/challenge-110/luca-ferrari/raku/phone.txt
@@ -0,0 +1,5 @@
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
-- 
cgit 


From 3954c4d133c65ee56946a2aa4c35ef904818f7db Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Apr 2021 09:20:32 +0200
Subject: Task2 done

---
 challenge-110/luca-ferrari/raku/ch-2.p6 | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-110/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-110/luca-ferrari/raku/ch-2.p6 b/challenge-110/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..b388913a7f
--- /dev/null
+++ b/challenge-110/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,12 @@
+#!raku
+
+sub MAIN( Str $file-name = 'people.txt' ) {
+
+    my @content;
+    @content.push: .split( ',' ) for $file-name.IO.lines;
+
+    for 0 ..^ @content[ 0 ].elems -> $column {
+        my @row.push:  @content[ $_ ][ $column ] for 0 ..^ @content.elems;
+        @row.join( ',' ).say;
+    }
+}
-- 
cgit 


From 0310f70d5102cb73bf8d677e2641c1c7e0acf764 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Apr 2021 09:51:02 +0200
Subject: Use map to compelte task 2

---
 challenge-110/luca-ferrari/raku/ch-2.p6 | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/challenge-110/luca-ferrari/raku/ch-2.p6 b/challenge-110/luca-ferrari/raku/ch-2.p6
index b388913a7f..ed01afe516 100644
--- a/challenge-110/luca-ferrari/raku/ch-2.p6
+++ b/challenge-110/luca-ferrari/raku/ch-2.p6
@@ -5,8 +5,12 @@ sub MAIN( Str $file-name = 'people.txt' ) {
     my @content;
     @content.push: .split( ',' ) for $file-name.IO.lines;
 
-    for 0 ..^ @content[ 0 ].elems -> $column {
-        my @row.push:  @content[ $_ ][ $column ] for 0 ..^ @content.elems;
-        @row.join( ',' ).say;
-    }
+    # for 0 ..^ @content[ 0 ].elems -> $column {
+    #     my @row.push:  @content[ $_ ][ $column ] for 0 ..^ @content.elems;
+    #     @row.join( ',' ).say;
+    # }
+
+    my @transposed.push: @content.map: *[ $_ ] for 0 ..^ @content[ 0 ].elems;
+    $_.join( ',' ).say for @transposed;
+
 }
-- 
cgit 


From 5457a92ce0762633f0b0279134ceb2c4e5d9c2f6 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 26 Apr 2021 08:11:59 +0000
Subject: Task 1 & 2

---
 challenge-110/perlboy1967/perl/ch-1.pl    | 62 +++++++++++++++++++++++++++++++
 challenge-110/perlboy1967/perl/ch-2.pl    | 48 ++++++++++++++++++++++++
 challenge-110/perlboy1967/perl/input1.txt |  5 +++
 challenge-110/perlboy1967/perl/input2.txt |  5 +++
 4 files changed, 120 insertions(+)
 create mode 100755 challenge-110/perlboy1967/perl/ch-1.pl
 create mode 100755 challenge-110/perlboy1967/perl/ch-2.pl
 create mode 100644 challenge-110/perlboy1967/perl/input1.txt
 create mode 100644 challenge-110/perlboy1967/perl/input2.txt

diff --git a/challenge-110/perlboy1967/perl/ch-1.pl b/challenge-110/perlboy1967/perl/ch-1.pl
new file mode 100755
index 0000000000..b0a192c0b5
--- /dev/null
+++ b/challenge-110/perlboy1967/perl/ch-1.pl
@@ -0,0 +1,62 @@
+#!/usr/bin/perl
+
+# Perl Weekly Challenge - 110
+# - https://perlweeklychallenge.org/blog/perl-weekly-challenge-110/#TASK1
+#
+# Task 1 - Valid Phone Numbers
+#
+# Author: Niels 'PerlBoy' van Dijke
+
+use v5.16;
+use strict;
+use warnings;
+
+use File::Basename qw(dirname);
+use File::Slurp;
+
+use Test::More;
+use Test::Deep;
+
+# Prototype(s)
+sub validatePhoneNumber($);
+
+# Work relative from script directory
+chdir(dirname($0));
+
+cmp_deeply ([map { validatePhoneNumber($_) } read_file('input1.txt')],
+            ['0044 1148820341',
+              '+44 1148820341',
+             '(44) 1148820341']);
+
+done_testing;
+
+
+# Interpreted the phone number rules to:
+# 1)  +nn nnnnnnnnnn:
+#    '+' followed 2-4 digits (see: https://countrycode.org/)
+#    followed by one or more spaces followed 6 or more digits
+# 2) nnnn nnnnnnnnnn:
+#    '00' followed by 2-4 digits followed by one or more spaces
+#    followed by 6 or more digits
+# 3) (nn) nnnnnnnnnn:
+#    '(' followed by 2-4 digits followed by ')' followed by
+#    one or more spaces followed by 6 or more digits
+
+sub validatePhoneNumber($) {
+  my ($n) = @_;
+
+  # trim input
+  $n =~ s/^\s*(.+?)\s*$/$1/;
+
+  my ($ccMinLen,$ccMaxLen) = (2,4);
+  my $pMinLen = 6;
+
+  return $n if ($n =~ m/(
+    ^ \+ \d{$ccMinLen,$ccMaxLen}    \s+ \d{$pMinLen,} $ |
+    ^ 00 \d{$ccMinLen,$ccMaxLen}    \s+ \d{$pMinLen,} $ |
+    ^ \( \d{$ccMinLen,$ccMaxLen} \) \s+ \d{$pMinLen,} $
+  )/x);
+
+  return;
+}
+
diff --git a/challenge-110/perlboy1967/perl/ch-2.pl b/challenge-110/perlboy1967/perl/ch-2.pl
new file mode 100755
index 0000000000..656d263fc4
--- /dev/null
+++ b/challenge-110/perlboy1967/perl/ch-2.pl
@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+# Perl Weekly Challenge - 110
+# - https://perlweeklychallenge.org/blog/perl-weekly-challenge-110/#TASK2
+#
+# Task 2 - Transpose File
+#
+# Author: Niels 'PerlBoy' van Dijke
+
+use v5.16;
+use strict;
+use warnings;
+
+use File::Basename qw(dirname);
+use File::Slurp;
+
+use Test::More;
+use Test::Deep;
+
+# Prototype(s)
+sub transposeFile($);
+
+# Work relative from script directory
+chdir(dirname($0));
+
+cmp_deeply ([transposeFile('input2.txt')],
+            ['name,Mohammad,Joe,Julie,Cristina',
+             'age,45,20,35,10',
+             'sex,m,m,f,f']);
+
+done_testing;
+
+
+sub transposeFile($) {
+  my ($f) = @_;
+
+  # Read and trim
+  my @lines = map { s/^\s*(.*?)\s*$/$1/; $_ } read_file($f);
+
+  my @out;
+  map {
+    my $i = 0;
+    map { push(@{$out[$i++]},$_) } split(/,/, $_);
+  } @lines;
+
+  return map {join(',',@$_)} @out;
+}
+
diff --git a/challenge-110/perlboy1967/perl/input1.txt b/challenge-110/perlboy1967/perl/input1.txt
new file mode 100644
index 0000000000..48d6254741
--- /dev/null
+++ b/challenge-110/perlboy1967/perl/input1.txt
@@ -0,0 +1,5 @@
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
diff --git a/challenge-110/perlboy1967/perl/input2.txt b/challenge-110/perlboy1967/perl/input2.txt
new file mode 100644
index 0000000000..716ebdce75
--- /dev/null
+++ b/challenge-110/perlboy1967/perl/input2.txt
@@ -0,0 +1,5 @@
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
-- 
cgit 


From 46b8aecc9397c6211a1e97a7f0638833726294a2 Mon Sep 17 00:00:00 2001
From: drbaggy <js5@sanger.ac.uk>
Date: Mon, 26 Apr 2021 09:14:21 +0100
Subject: tidying up code

---
 challenge-109/james-smith/perl/ch-1.pl | 14 ++++++--------
 challenge-109/james-smith/perl/ch-2.pl |  5 ++---
 2 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/challenge-109/james-smith/perl/ch-1.pl b/challenge-109/james-smith/perl/ch-1.pl
index c7820fb3d2..6fccc59edd 100644
--- a/challenge-109/james-smith/perl/ch-1.pl
+++ b/challenge-109/james-smith/perl/ch-1.pl
@@ -34,15 +34,13 @@ cmpthese(1_000_000, {
 ## For 79936/s  34%   --
 ##
 
-sub chowla_map {
-  my ($t,$n) = (0,@_);
 ## First attempt - the one-liner is to write this as a map,
 ## we add $t at the end which is the value returned
+sub chowla_map {
+  my ($t,$n) = (0,@_);
   ( map { (($n%$_) || ($t+=$_)) && () } 2..$n>>1 ), $t;
 }
 
-sub chowla_for {
-  my($t,$n)=(0,@_);
 
   ## This time we won't write this as a nasty map/reduce solution...
   ##
@@ -55,12 +53,12 @@ sub chowla_for {
   ##    can be rewritten as:
   ##      ($condition)||($fun())
   ##  * in perl `foreach` and `for` are synonymous - so we can shorten
-
-  ($n%$_)||($t+=$_) for 2..$n>>1;
-
-  ## Now a quick "shortening" - if there is no specific return
+  ## Finally a quick "shortening" - if there is no specific return
   ## statement - we can just omit the return in the last statement...
 
+sub chowla_for {
+  my($t,$n)=(0,@_);
+  ($n%$_)||($t+=$_) for 2..$n>>1;
   $t;
 }
 
diff --git a/challenge-109/james-smith/perl/ch-2.pl b/challenge-109/james-smith/perl/ch-2.pl
index 436e0fca19..bafd89bff8 100644
--- a/challenge-109/james-smith/perl/ch-2.pl
+++ b/challenge-109/james-smith/perl/ch-2.pl
@@ -67,8 +67,6 @@ say '';
 sub sep  { say '------------------------------------------------------------------------'; }
 sub show { say "@{$_}" foreach @{$_[0]}; }
 
-sub four_square {
-
 ## For a start we make the observation that
 ##
 ## $a + 2$b + $c + 2$d + $e + 2$f + $g = $n * 4 where $n is the total of a square
@@ -94,6 +92,7 @@ sub four_square {
 ##
 ## We push any valid results to the array
 
+sub four_square {
   my ($t,@n1,@res) = (0,@_);
   $t+=$_ foreach @n1;
   foreach my $b (        @n1 ) {
@@ -110,7 +109,6 @@ sub four_square {
   return \@res;
 }
 
-sub four_square_non_unique {
 ## Now let us make no assumption about the numbers...
 ## We choose 3 from the list...
 ## We then compute n (and check for no remainder)
@@ -123,6 +121,7 @@ sub four_square_non_unique {
 ##            will end up with 2 entries in the list
 ##            where you swap the equivalent values...
 
+sub four_square_non_unique {
   my ($t,$check,@n1,%res) = (0,"@{[sort @_]}",@_);
   $t+=$_ foreach @n1;
   foreach my $i ( 0..@n1-1 ) {
-- 
cgit 


From a86f90bf5060f5cc194f82d4e05eff2954326f6b Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Apr 2021 10:48:19 +0200
Subject: Blog references

---
 challenge-110/luca-ferrari/blog-1.txt | 1 +
 challenge-110/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-110/luca-ferrari/blog-1.txt
 create mode 100644 challenge-110/luca-ferrari/blog-2.txt

diff --git a/challenge-110/luca-ferrari/blog-1.txt b/challenge-110/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..061a9b3d76
--- /dev/null
+++ b/challenge-110/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/04/26/PerlWeeklyChallenge110.html#task1
diff --git a/challenge-110/luca-ferrari/blog-2.txt b/challenge-110/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..e45816a13e
--- /dev/null
+++ b/challenge-110/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/04/26/PerlWeeklyChallenge110.html#task2
-- 
cgit 


From a05d653452a1c0c9366c6e62e8a51570068f6af0 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Apr 2021 10:56:45 +0200
Subject: Better task 1

---
 challenge-110/luca-ferrari/raku/ch-1.p6 | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/challenge-110/luca-ferrari/raku/ch-1.p6 b/challenge-110/luca-ferrari/raku/ch-1.p6
index 2eee9c781f..d31e9fa671 100644
--- a/challenge-110/luca-ferrari/raku/ch-1.p6
+++ b/challenge-110/luca-ferrari/raku/ch-1.p6
@@ -2,9 +2,15 @@
 
 
 sub MAIN( Str $file-name = 'phone.txt' ) {
-    my @regexps = rx / ^ \s* <[+]> \d ** 2 \s+ \d ** 10 $ /
-                , rx / ^ \s* <[(]> \d ** 2 <[)]> \s+ \d ** 10 $ /
-                , rx / ^ \s* \d ** 4 \s+ \d ** 10 $ /;
+    my $phone-regexp  = rx/ \d ** 10 /;
+    my $prefix-regexp = rx/
+             <[+]> \d ** 2
+             || <[(]> \d ** 2 <[)]>
+             || \d ** 4
+    /;
 
-    say $_ if $_ ~~ any @regexps for $file-name.IO.lines;
+
+    my $phone-rx = rx / ^ \s* $prefix-regexp \s+ $phone-regexp $ /;
+
+    $_.say if $_ ~~ $phone-rx for $file-name.IO.lines;
 }
-- 
cgit 


From af2151c9a4306f5d3e4f28b86667e89e051f0f4a Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 26 Apr 2021 10:59:19 +0200
Subject: Input text files

---
 challenge-098/luca-ferrari/raku/input.txt  | 1 +
 challenge-110/luca-ferrari/raku/people.txt | 5 +++++
 2 files changed, 6 insertions(+)
 create mode 100644 challenge-098/luca-ferrari/raku/input.txt
 create mode 100644 challenge-110/luca-ferrari/raku/people.txt

diff --git a/challenge-098/luca-ferrari/raku/input.txt b/challenge-098/luca-ferrari/raku/input.txt
new file mode 100644
index 0000000000..a614821304
--- /dev/null
+++ b/challenge-098/luca-ferrari/raku/input.txt
@@ -0,0 +1 @@
+1234ABCD5678EFGH
diff --git a/challenge-110/luca-ferrari/raku/people.txt b/challenge-110/luca-ferrari/raku/people.txt
new file mode 100644
index 0000000000..716ebdce75
--- /dev/null
+++ b/challenge-110/luca-ferrari/raku/people.txt
@@ -0,0 +1,5 @@
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
-- 
cgit 


From 34595087f49d6292a09dfa9452efe1e49959639d Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 26 Apr 2021 08:12:34 -0400
Subject: 1st commit on 110_perl

---
 challenge-110/stuart-little/perl/ch-1.pl | 32 +++++++++++++++++++++++++++++++
 challenge-110/stuart-little/perl/ch-2.pl | 33 ++++++++++++++++++++++++++++++++
 2 files changed, 65 insertions(+)
 create mode 100755 challenge-110/stuart-little/perl/ch-1.pl
 create mode 100755 challenge-110/stuart-little/perl/ch-2.pl

diff --git a/challenge-110/stuart-little/perl/ch-1.pl b/challenge-110/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..27d3e71249
--- /dev/null
+++ b/challenge-110/stuart-little/perl/ch-1.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <path-to-file or nothing>
+# defaults to text at the bottom if no file is entered
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+sub getNrs($data) {
+    my @nrs = $data =~ m/((?:\+\d{2}|\(\d{2}\)|\d{4})\s+\d{10})/gsm;
+    return \@nrs;
+}
+
+my $fh;
+(scalar @ARGV) ? (open($fh, '<', $ARGV[0])) : ($fh = *DATA);
+
+my $data;
+{
+    local $/ = undef;
+    $data = <$fh>;
+}
+
+for (@{getNrs($data)}) {say};
+
+__DATA__
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
diff --git a/challenge-110/stuart-little/perl/ch-2.pl b/challenge-110/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..fd459df8de
--- /dev/null
+++ b/challenge-110/stuart-little/perl/ch-2.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <path-to-file or nothing>
+# defaults to text at the bottom if no file is entered
+
+use feature qw(signatures);
+no warnings qw(experimental::signatures);
+
+use List::AllUtils qw(zip_by);
+
+my $fh;
+(scalar @ARGV) ? (open($fh, '<', $ARGV[0])) : ($fh = *DATA);
+
+my @data = ();
+while (<$fh>) {
+    chomp;
+    my @line = split(/,\s*/,$_);
+    push @data, \@line;
+}
+
+my @transData = map {join(",",@{$_})} zip_by { [ @_ ] } @data;
+for (@transData) {
+    say;
+}
+
+__DATA__
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
-- 
cgit 


From 31824ec64fb24a3eb34102980338256d0e152e3f Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 26 Apr 2021 08:13:16 -0400
Subject: 1st commit on 110_raku

---
 challenge-110/stuart-little/raku/ch-1.p6 | 20 ++++++++++++++++++++
 challenge-110/stuart-little/raku/ch-2.p6 | 17 +++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100755 challenge-110/stuart-little/raku/ch-1.p6
 create mode 100755 challenge-110/stuart-little/raku/ch-2.p6

diff --git a/challenge-110/stuart-little/raku/ch-1.p6 b/challenge-110/stuart-little/raku/ch-1.p6
new file mode 100755
index 0000000000..18ba73dc48
--- /dev/null
+++ b/challenge-110/stuart-little/raku/ch-1.p6
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <path-to-file or nothing>
+# defaults to text at the bottom if no file is entered
+
+sub getNrs($data) {
+    $data ~~ m:g/([\+\d ** 2|\(\d ** 2\)|\d ** 4]\s+ \d ** 10)/;
+    return $/.map(*.Str);
+}
+
+my $data = (@*ARGS.elems) ?? (@*ARGS[0].IO.slurp) !! ($=finish);
+for (getNrs($data)) {.say};
+
+=finish
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
diff --git a/challenge-110/stuart-little/raku/ch-2.p6 b/challenge-110/stuart-little/raku/ch-2.p6
new file mode 100755
index 0000000000..daef3c8a1d
--- /dev/null
+++ b/challenge-110/stuart-little/raku/ch-2.p6
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl6
+use v6;
+
+# run <script> <path-to-file or nothing>
+# defaults to text at the bottom if no file is entered
+
+my @lines = (@*ARGS.elems) ?? (@*ARGS[0].IO.lines) !! ($=finish.lines);
+
+my @transpLines = (zip @lines.map(*.split(/\,\s*/))).map(*.join(','));
+for (@transpLines) {.say};
+
+=finish
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
-- 
cgit 


From 048b5243efd43d4d0eb5d8cab6abe82990205d63 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 26 Apr 2021 06:15:05 -0600
Subject: Challenge 110 Solutions (Raku)

---
 challenge-110/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-110/mark-anderson/raku/ch-1.raku b/challenge-110/mark-anderson/raku/ch-1.raku
index aaeb60658b..4bac1a094e 100644
--- a/challenge-110/mark-anderson/raku/ch-1.raku
+++ b/challenge-110/mark-anderson/raku/ch-1.raku
@@ -2,4 +2,4 @@
 
 .say for "ch-1.txt".IO.lines
 
-.grep(/ ^ [ \s\+\d\d | \(\d\d\) | \d\d\d\d ] \s \d**10 $ /);
+.grep(/ ^ [ \s\+\d\d || \(\d\d\) || \d**4 ] \s \d**10 $ /);
-- 
cgit 


From 7a819e56685e26cc8c0d9a3e0708fbc733224b80 Mon Sep 17 00:00:00 2001
From: ziameraj16 <ziameraj16@gmail.com>
Date: Mon, 26 Apr 2021 13:19:41 +0100
Subject: Java solution for Valid Phone Numbers

---
 challenge-110/ziameraj16/README.md                 | 16 ++++++++------
 .../ziameraj16/java/ValidPhoneNumbers.java         | 25 ++++++++++++++++++++++
 2 files changed, 35 insertions(+), 6 deletions(-)
 create mode 100644 challenge-110/ziameraj16/java/ValidPhoneNumbers.java

diff --git a/challenge-110/ziameraj16/README.md b/challenge-110/ziameraj16/README.md
index ef1a946bab..368d95e66b 100644
--- a/challenge-110/ziameraj16/README.md
+++ b/challenge-110/ziameraj16/README.md
@@ -1,18 +1,22 @@
-# Chowla Numbers
+# Valid Phone Numbers
 ## Java Solution
 
 To compile the code run
 ```java
-javac ChowlaNumbers.java
+javac ValidPhoneNumbers.java
 ```
 To run
 ```java
-java ChowlaNumbers
+java ValidPhoneNumbers
 ```
 ### Example
 ```bash
-/perlweeklychallenge-club/challenge-109/ziameraj16/java$ javac ChowlaNumbers.java
-/perlweeklychallenge-club/challenge-109/ziameraj16/java$ java ChowlaNumbers
-0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21
+/perlweeklychallenge-club/challenge-110/ziameraj16/java$ javac ValidPhoneNumbers.java
+/perlweeklychallenge-club/challenge-110/ziameraj16/java$ java ValidPhoneNumbers
+Enter full file path
+/Users/ziameraj16/a.txt
+0044 1148820341
+ +44 1148820341
+(44) 1148820341
 ```
 
diff --git a/challenge-110/ziameraj16/java/ValidPhoneNumbers.java b/challenge-110/ziameraj16/java/ValidPhoneNumbers.java
new file mode 100644
index 0000000000..8d681135fe
--- /dev/null
+++ b/challenge-110/ziameraj16/java/ValidPhoneNumbers.java
@@ -0,0 +1,25 @@
+import java.io.IOException;
+import java.nio.file.Files;
+import java.nio.file.Paths;
+import java.util.List;
+import java.util.Scanner;
+import java.util.regex.Pattern;
+
+public class ValidPhoneNumbers {
+
+    public static void main(String[] args) throws IOException {
+
+        Scanner scanner = new Scanner(System.in);
+        System.out.println("Enter full file path");
+        String filePath = scanner.next();
+        List<String> allLines = Files.readAllLines(Paths.get(filePath));
+        for (String value : allLines) {
+            if (Pattern.compile("^[0-9]{4}\\s[0-9]{10}$").matcher(value.trim()).matches()
+                || Pattern.compile("^\\+[0-9]{2}\\s[0-9]{10}$").matcher(value.trim()).matches()
+                || Pattern.compile("^\\([0-9]{2}\\)\\s[0-9]{10}$").matcher(value.trim()).matches()) {
+                System.out.println(value);
+            }
+        }
+    }
+
+}
-- 
cgit 


From fa12d5043bd37bf69f42e5b6304bfc92ab29248b Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 26 Apr 2021 14:25:49 +0200
Subject: README from week 110

---
 challenge-110/abigail/README.md | 129 +++++++++++++---------------------------
 1 file changed, 42 insertions(+), 87 deletions(-)

diff --git a/challenge-110/abigail/README.md b/challenge-110/abigail/README.md
index efca0f497f..a931e845a9 100644
--- a/challenge-110/abigail/README.md
+++ b/challenge-110/abigail/README.md
@@ -1,107 +1,62 @@
 # Solutions by Asbigail
-## [Chowla Numbers](https://perlweeklychallenge.org/blog/perl-weekly-challenge-109/#TASK1)
+## [Valid Phone Number Formats](https://perlweeklychallenge.org/blog/perl-weekly-challenge-110/#TASK1)
 
-Write a script to generate first 20 Chowla Numbers, named after,
-Sarvadaman D. S. Chowla, a London born Indian American mathematician.
-It is defined as:
+> You are given a text file.
+> 
+> Write a script to display all valid phone numbers in the given text file.
 
-    C(n) = (sum of divisors of n) - 1 - n
+### Acceptable Phone Number Formats
 
-### Output
+~~~~
++nn  nnnnnnnnnn
+(nn) nnnnnnnnnn
+nnnn nnnnnnnnnn
+~~~~
+
+### Input File
+~~~~
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
+~~~~
 
-    0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21
+### Output
+~~~~
+0044 1148820341
+ +44 1148820341
+(44) 1148820341
+~~~~
 
 ### Solutions
-* [AWK](awk/ch-1.awk)
-* [Bash](bash/ch-1.sh)
-* [BASIC](basic/ch-1.bas)
-* [bc](bc/ch-1.bc)
-* [Befunge-93][befunge-93/ch-1.bf93]
-* [C](c/ch-1.c)
-* [Cobol](cobol/ch-1.cb)
-* [Csh](csh/ch-1.csh)
-* [Erlang](erlang/ch-1.erl)
-* [Forth](forth/ch-1.fs)
-* [Fortran](fortran/ch-1.f90)
-* [Go](go/ch-1.go)
-* [Java](java/ch-1.java)
-* [Lua](lua/ch-1.lua)
-* [m4](m4/ch-1.m4)
-* [Node.js](node/ch-1.js)
-* [Ocaml](ocaml/ch-1.ml)
-* [Pascal](pascal/ch-1.p)
-* [Perl](perl/ch-1.pl)
-* [PHP](php/ch-1.php)
-* [PostScript](postscript/ch-1.ps)
-* [Python](python/ch-1.py)
-* [R](r/ch-1.r)
-* [Rexx](rexx/ch-1.rexx)
-* [Ruby](ruby/ch-1.rb)
-* [Scheme](scheme/ch-1.scm)
-* [sed](sed/ch-1.sed)
-* [SQL](sql/ch-1.sql)
-* [Tcl](tcl/ch-1.tcl)
 
 ### Blog
 
-[Chowla Numbers](https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-109-1.html)
-
+## [Transpose File](https://perlweeklychallenge.org/blog/perl-weekly-challenge-110/#TASK2)
 
-## [Four Squares Puzzle](https://perlweeklychallenge.org/blog/perl-weekly-challenge-109/#TASK2)
-
-You are given four squares as below with numbers named `a`, `b`,
-`c`, `d`, `e`, `f`, `g`.
-
-              (1)                    (3)
-        ╔══════════════╗      ╔══════════════╗
-        ║              ║      ║              ║
-        ║      a       ║      ║      e       ║
-        ║              ║ (2)  ║              ║  (4)
-        ║          ┌───╫──────╫───┐      ┌───╫─────────┐
-        ║          │   ║      ║   │      │   ║         │
-        ║          │ b ║      ║ d │      │ f ║         │
-        ║          │   ║      ║   │      │   ║         │
-        ║          │   ║      ║   │      │   ║         │
-        ╚══════════╪═══╝      ╚═══╪══════╪═══╝         │
-                   │       c      │      │      g      │
-                   │              │      │             │
-                   │              │      │             │
-                   └──────────────┘      └─────────────┘
-
-Write a script to place the given unique numbers in the square box
-so that sum of numbers in each box is the same.
-
-### Example
+> You are given a text file.
+> 
+> Write a script to transpose the contents of the given file.
 
+### Input File
+~~~~
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
 ~~~~
-Input: 1,2,3,4,5,6,7
-
-Output:
-
-    a = 6
-    b = 4
-    c = 1
-    d = 5
-    e = 2
-    f = 3
-    g = 7
 
-    Box 1: a + b = 6 + 4 = 10
-    Box 2: b + c + d = 4 + 1 + 5 = 10
-    Box 3: d + e + f = 5 + 2 + 3 = 10
-    Box 4: f + g = 3 + 7 = 10
+### Output
 ~~~~
+name,Mohammad,Joe,Julie,Cristina
+age,45,20,35,10
+sex,m,m,f,f
+~~~~
+
 
 ### Solutions
-* [AWK](awk/ch-2.awk)
-* [Bash](bash/ch-2.sh)
-* [C](c/ch-2.c)
-* [Lua](lua/ch-2.lua)
-* [Node.js](node/ch-2.js)
-* [Perl](perl/ch-2.pl)
-* [Python](python/ch-2.py)
-* [Ruby](ruby/ch-2.rb)
 
 ### Blog
-[Four Squares Puzzle](https://abigail.github.io/HTML/Perl-Weekly-Challenge/week-109-2.html)
 
-- 
cgit 


From 38d84fe5b0a8ca68ef74b0711778a95b39ef6aa0 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 26 Apr 2021 14:28:45 +0200
Subject: Tests cases for week 110

---
 challenge-110/abigail/t/ctest.ini      | 8 ++++++++
 challenge-110/abigail/t/input-1-1      | 5 +++++
 challenge-110/abigail/t/input-2-1      | 5 +++++
 challenge-110/abigail/t/ouput-2-1.exp  | 3 +++
 challenge-110/abigail/t/output-1-1.exp | 3 +++
 5 files changed, 24 insertions(+)
 create mode 100644 challenge-110/abigail/t/ctest.ini
 create mode 100644 challenge-110/abigail/t/input-1-1
 create mode 100644 challenge-110/abigail/t/input-2-1
 create mode 100644 challenge-110/abigail/t/ouput-2-1.exp
 create mode 100644 challenge-110/abigail/t/output-1-1.exp

diff --git a/challenge-110/abigail/t/ctest.ini b/challenge-110/abigail/t/ctest.ini
new file mode 100644
index 0000000000..a8677a6425
--- /dev/null
+++ b/challenge-110/abigail/t/ctest.ini
@@ -0,0 +1,8 @@
+# 
+# Configuration file for running tests, using ctest.
+# See https://github.com/Abigail/Misc/blob/master/ctest
+# 
+
+[names]
+1-1 = Given Example
+2-1 = Given Example
diff --git a/challenge-110/abigail/t/input-1-1 b/challenge-110/abigail/t/input-1-1
new file mode 100644
index 0000000000..48d6254741
--- /dev/null
+++ b/challenge-110/abigail/t/input-1-1
@@ -0,0 +1,5 @@
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
diff --git a/challenge-110/abigail/t/input-2-1 b/challenge-110/abigail/t/input-2-1
new file mode 100644
index 0000000000..716ebdce75
--- /dev/null
+++ b/challenge-110/abigail/t/input-2-1
@@ -0,0 +1,5 @@
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
diff --git a/challenge-110/abigail/t/ouput-2-1.exp b/challenge-110/abigail/t/ouput-2-1.exp
new file mode 100644
index 0000000000..0cb1eb87a1
--- /dev/null
+++ b/challenge-110/abigail/t/ouput-2-1.exp
@@ -0,0 +1,3 @@
+name,Mohammad,Joe,Julie,Cristina
+age,45,20,35,10
+sex,m,m,f,f
diff --git a/challenge-110/abigail/t/output-1-1.exp b/challenge-110/abigail/t/output-1-1.exp
new file mode 100644
index 0000000000..c681c2e535
--- /dev/null
+++ b/challenge-110/abigail/t/output-1-1.exp
@@ -0,0 +1,3 @@
+0044 1148820341
+ +44 1148820341
+(44) 1148820341
-- 
cgit 


From 3743aa2cbefab6331c34fc8c9eb7862312b10ea1 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 26 Apr 2021 08:48:25 -0400
Subject: 1st commit on 110_python

---
 challenge-110/stuart-little/python/ch-1.py | 23 +++++++++++++++++++++++
 challenge-110/stuart-little/python/ch-2.py | 21 +++++++++++++++++++++
 2 files changed, 44 insertions(+)
 create mode 100755 challenge-110/stuart-little/python/ch-1.py
 create mode 100755 challenge-110/stuart-little/python/ch-2.py

diff --git a/challenge-110/stuart-little/python/ch-1.py b/challenge-110/stuart-little/python/ch-1.py
new file mode 100755
index 0000000000..1287c19b6f
--- /dev/null
+++ b/challenge-110/stuart-little/python/ch-1.py
@@ -0,0 +1,23 @@
+#!/usr/bin/env python
+
+# run <script> <path-to-file or nothing>
+# defaults to challenge sample if no file is entered
+
+import re
+import sys
+
+if (len(sys.argv)>1):
+    with open(sys.argv[1]) as f:
+        data=f.read()
+else:
+    data="""
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
+"""
+rgx=re.compile(r'((?:\+\d{2}|\(\d{2}\)|\d{4})\s+\d{10})')
+nrs=re.findall(rgx,data)
+for nr in nrs:
+    print(nr)
diff --git a/challenge-110/stuart-little/python/ch-2.py b/challenge-110/stuart-little/python/ch-2.py
new file mode 100755
index 0000000000..7c92a1ae8d
--- /dev/null
+++ b/challenge-110/stuart-little/python/ch-2.py
@@ -0,0 +1,21 @@
+#!/usr/bin/env python
+
+# run <script> <path-to-file or nothing>
+# defaults to challenge sample if no file is entered
+
+import sys
+
+if (len(sys.argv)>1):
+    with open(sys.argv[1]) as f:
+        data=f.read()
+else:
+    data="""name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
+"""
+
+transpLines = list(map(lambda x: ','.join(x), list(zip(*list(map(lambda x: x.split(','),data.splitlines()))))))
+for ln in transpLines:
+    print(ln)
-- 
cgit 


From b1b52f1c2205682f9bf4477d5232a460d5fe8a58 Mon Sep 17 00:00:00 2001
From: Roger Bell_West <roger@firedrake.org>
Date: Mon, 26 Apr 2021 14:17:55 +0100
Subject: Solutions for challenge #110

---
 challenge-110/roger-bell-west/README          |  2 +-
 challenge-110/roger-bell-west/input.ch1.txt   |  5 ++++
 challenge-110/roger-bell-west/input.ch2.txt   |  5 ++++
 challenge-110/roger-bell-west/output.ch1.txt  |  3 +++
 challenge-110/roger-bell-west/output.ch2.txt  |  3 +++
 challenge-110/roger-bell-west/perl/ch-1.pl    |  8 ++++++
 challenge-110/roger-bell-west/perl/ch-2.pl    | 28 +++++++++++++++++++++
 challenge-110/roger-bell-west/python/ch-1.py  | 10 ++++++++
 challenge-110/roger-bell-west/python/ch-2.py  | 16 ++++++++++++
 challenge-110/roger-bell-west/raku/ch-1.p6    |  5 ++++
 challenge-110/roger-bell-west/raku/ch-2.p6    | 16 ++++++++++++
 challenge-110/roger-bell-west/ruby/ch-1.rb    |  9 +++++++
 challenge-110/roger-bell-west/ruby/ch-2.rb    | 19 +++++++++++++++
 challenge-110/roger-bell-west/rust/ch-1.rs    | 14 +++++++++++
 challenge-110/roger-bell-west/rust/ch-2.rs    | 23 ++++++++++++++++++
 challenge-110/roger-bell-west/shell/ch-1.sh   |  3 +++
 challenge-110/roger-bell-west/test-harness.pl | 35 +++++++++++++++++++++++++++
 17 files changed, 203 insertions(+), 1 deletion(-)
 create mode 100644 challenge-110/roger-bell-west/input.ch1.txt
 create mode 100644 challenge-110/roger-bell-west/input.ch2.txt
 create mode 100644 challenge-110/roger-bell-west/output.ch1.txt
 create mode 100644 challenge-110/roger-bell-west/output.ch2.txt
 create mode 100755 challenge-110/roger-bell-west/perl/ch-1.pl
 create mode 100755 challenge-110/roger-bell-west/perl/ch-2.pl
 create mode 100755 challenge-110/roger-bell-west/python/ch-1.py
 create mode 100755 challenge-110/roger-bell-west/python/ch-2.py
 create mode 100755 challenge-110/roger-bell-west/raku/ch-1.p6
 create mode 100755 challenge-110/roger-bell-west/raku/ch-2.p6
 create mode 100755 challenge-110/roger-bell-west/ruby/ch-1.rb
 create mode 100755 challenge-110/roger-bell-west/ruby/ch-2.rb
 create mode 100644 challenge-110/roger-bell-west/rust/ch-1.rs
 create mode 100755 challenge-110/roger-bell-west/rust/ch-2.rs
 create mode 100755 challenge-110/roger-bell-west/shell/ch-1.sh
 create mode 100755 challenge-110/roger-bell-west/test-harness.pl

diff --git a/challenge-110/roger-bell-west/README b/challenge-110/roger-bell-west/README
index 245784dce5..f87212ec1a 100644
--- a/challenge-110/roger-bell-west/README
+++ b/challenge-110/roger-bell-west/README
@@ -1 +1 @@
-Solutions by Roger Bell West.
+Solutions by Roger Bell_West.
diff --git a/challenge-110/roger-bell-west/input.ch1.txt b/challenge-110/roger-bell-west/input.ch1.txt
new file mode 100644
index 0000000000..48d6254741
--- /dev/null
+++ b/challenge-110/roger-bell-west/input.ch1.txt
@@ -0,0 +1,5 @@
+0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
diff --git a/challenge-110/roger-bell-west/input.ch2.txt b/challenge-110/roger-bell-west/input.ch2.txt
new file mode 100644
index 0000000000..716ebdce75
--- /dev/null
+++ b/challenge-110/roger-bell-west/input.ch2.txt
@@ -0,0 +1,5 @@
+name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
diff --git a/challenge-110/roger-bell-west/output.ch1.txt b/challenge-110/roger-bell-west/output.ch1.txt
new file mode 100644
index 0000000000..c681c2e535
--- /dev/null
+++ b/challenge-110/roger-bell-west/output.ch1.txt
@@ -0,0 +1,3 @@
+0044 1148820341
+ +44 1148820341
+(44) 1148820341
diff --git a/challenge-110/roger-bell-west/output.ch2.txt b/challenge-110/roger-bell-west/output.ch2.txt
new file mode 100644
index 0000000000..0cb1eb87a1
--- /dev/null
+++ b/challenge-110/roger-bell-west/output.ch2.txt
@@ -0,0 +1,3 @@
+name,Mohammad,Joe,Julie,Cristina
+age,45,20,35,10
+sex,m,m,f,f
diff --git a/challenge-110/roger-bell-west/perl/ch-1.pl b/challenge-110/roger-bell-west/perl/ch-1.pl
new file mode 100755
index 0000000000..e2aa6e30a5
--- /dev/null
+++ b/challenge-110/roger-bell-west/perl/ch-1.pl
@@ -0,0 +1,8 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+while (<>) {
+  print if /^\s*(\+[0-9]{2}|\([0-9]{2}\)|[0-9]{4}) [0-9]{10}\s*$/;
+}
diff --git a/challenge-110/roger-bell-west/perl/ch-2.pl b/challenge-110/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..071497ff09
--- /dev/null
+++ b/challenge-110/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,28 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Text::CSV_XS;
+
+my $csv = Text::CSV_XS->new({eol => $/});
+
+my $fh;
+if (defined $ARGV[0] && -e $ARGV[0]) {
+  open $fh,'<',$ARGV[0];
+} else {
+  $fh=*STDIN;
+}
+
+my @a;
+my $ri=0;
+while (my $row=$csv->getline($fh)) {
+  foreach my $ci (0..$#{$row}) {
+    $a[$ci][$ri]=$row->[$ci];
+  }
+  $ri++;
+}
+
+close $fh;
+
+$csv->say(*STDOUT,$_) for @a;
diff --git a/challenge-110/roger-bell-west/python/ch-1.py b/challenge-110/roger-bell-west/python/ch-1.py
new file mode 100755
index 0000000000..ff7e397315
--- /dev/null
+++ b/challenge-110/roger-bell-west/python/ch-1.py
@@ -0,0 +1,10 @@
+#! /usr/bin/python3
+
+import fileinput
+import re
+
+pn=re.compile("^ *(\+[0-9]{2}|\([0-9]{2}\)|[0-9]{4}) [0-9]{10} *$")
+for line in fileinput.input():
+  line=line.rstrip()
+  if re.match(pn,line):
+    print(line)
diff --git a/challenge-110/roger-bell-west/python/ch-2.py b/challenge-110/roger-bell-west/python/ch-2.py
new file mode 100755
index 0000000000..5ee699e520
--- /dev/null
+++ b/challenge-110/roger-bell-west/python/ch-2.py
@@ -0,0 +1,16 @@
+#! /usr/bin/python
+
+import fileinput
+
+a=[]
+
+for line in fileinput.input():
+    line=line.rstrip()
+    r=line.split(',')
+    for ci in range(len(r)):
+        while len(a) < ci+1:
+            a.append([])
+        a[ci].append(r[ci])
+
+for r in a:
+          print (','.join(r))
diff --git a/challenge-110/roger-bell-west/raku/ch-1.p6 b/challenge-110/roger-bell-west/raku/ch-1.p6
new file mode 100755
index 0000000000..660a42b1cc
--- /dev/null
+++ b/challenge-110/roger-bell-west/raku/ch-1.p6
@@ -0,0 +1,5 @@
+#! /usr/bin/perl6
+
+for lines() {
+  say $_ if /^\s*(\+<[0..9]> ** 2|\(<[0..9]> ** 2\)|<[0..9]> ** 4)\s<[0..9]> ** 10\s*$/;
+}
diff --git a/challenge-110/roger-bell-west/raku/ch-2.p6 b/challenge-110/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..609bb0c507
--- /dev/null
+++ b/challenge-110/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,16 @@
+#! /usr/bin/perl6
+
+my @a;
+my $ri=0;
+
+for lines() {
+  my @r=split ',',$_;
+  for 0..@r.elems-1 -> $ci {
+    @a[$ci][$ri]=@r[$ci];
+  }
+  $ri++;
+}
+
+for @a -> @r {
+  say join(',',@r);
+}
\ No newline at end of file
diff --git a/challenge-110/roger-bell-west/ruby/ch-1.rb b/challenge-110/roger-bell-west/ruby/ch-1.rb
new file mode 100755
index 0000000000..20b375cfcb
--- /dev/null
+++ b/challenge-110/roger-bell-west/ruby/ch-1.rb
@@ -0,0 +1,9 @@
+#! /usr/bin/ruby
+
+pn=Regexp.new('^ *(\+[0-9]{2}|\([0-9]{2}\)|[0-9]{4}) [0-9]{10} *$')
+
+while line=gets
+  if line =~ pn then
+    print line
+  end
+end
diff --git a/challenge-110/roger-bell-west/ruby/ch-2.rb b/challenge-110/roger-bell-west/ruby/ch-2.rb
new file mode 100755
index 0000000000..8daaacc6ff
--- /dev/null
+++ b/challenge-110/roger-bell-west/ruby/ch-2.rb
@@ -0,0 +1,19 @@
+#! /usr/bin/ruby
+
+a=[]
+
+while line=gets
+  line=line.chomp
+  r=line.split(',')
+  for ci in 0.upto(r.length-1)
+    while a.length < ci+1
+      a.push([])
+    end
+    a[ci].push(r[ci])
+  end
+end
+
+for r in a
+  print r.join(',')
+  print "\n"
+end
diff --git a/challenge-110/roger-bell-west/rust/ch-1.rs b/challenge-110/roger-bell-west/rust/ch-1.rs
new file mode 100644
index 0000000000..9718da2298
--- /dev/null
+++ b/challenge-110/roger-bell-west/rust/ch-1.rs
@@ -0,0 +1,14 @@
+use std::io;
+use std::io::prelude::*;
+use regex::Regex;
+
+fn main() {
+    let vp=Regex::new(r"^ *(\+[0-9]{2}|\([0-9]{2}\)|[0-9]{4}) [0-9]{10} *$").unwrap();
+    let stdin = io::stdin();
+    for line in stdin.lock().lines() {
+        let ll=line.unwrap();
+        if vp.is_match(&ll) {
+            println!("{}",ll);
+        }
+    }
+}
diff --git a/challenge-110/roger-bell-west/rust/ch-2.rs b/challenge-110/roger-bell-west/rust/ch-2.rs
new file mode 100755
index 0000000000..0510ccc1f2
--- /dev/null
+++ b/challenge-110/roger-bell-west/rust/ch-2.rs
@@ -0,0 +1,23 @@
+#! /bin/sh
+//usr/bin/env rustc $0 -o ${0}x && ./${0}x; rm -f ${0}x ; exit
+
+use std::io;
+use std::io::prelude::*;
+
+fn main() {
+    let stdin = io::stdin();
+    let mut a: Vec<Vec<String>>=vec![];
+    for line in stdin.lock().lines() {
+        let ll=line.unwrap();
+        let r: Vec<&str>=ll.split(",").collect();
+        for ci in 0..r.len() {
+            while a.len() < ci+1 {
+                a.push(vec![]);
+            }
+            a[ci].push(r[ci].to_string());
+        }
+    }
+    for r in a {
+        println!("{}",r.join(","));
+    }
+}
diff --git a/challenge-110/roger-bell-west/shell/ch-1.sh b/challenge-110/roger-bell-west/shell/ch-1.sh
new file mode 100755
index 0000000000..f061457bdc
--- /dev/null
+++ b/challenge-110/roger-bell-west/shell/ch-1.sh
@@ -0,0 +1,3 @@
+#! /bin/bash
+
+egrep "^ *(\+[0-9]{2}|\([0-9]{2}\)|[0-9]{4}) [0-9]{10} *$"
diff --git a/challenge-110/roger-bell-west/test-harness.pl b/challenge-110/roger-bell-west/test-harness.pl
new file mode 100755
index 0000000000..d8afeda46c
--- /dev/null
+++ b/challenge-110/roger-bell-west/test-harness.pl
@@ -0,0 +1,35 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+foreach my $program (@ARGV) {
+  my $n=1;
+  if ($program =~ /ch-2/) {
+    $n=2;
+  }
+  my $r=system("$program <input.ch$n.txt >test.ch$n.txt");
+  if ($r != 0) {
+    warn "$program failed\n";
+    next;
+  }
+  my @l;
+  foreach my $file ("output.ch$n.txt","test.ch$n.txt") {
+    push @l,[];
+    open I,'<',$file;
+    while (<I>) {
+      push @{$l[-1]},$_;
+    }
+  }
+  my $ok=1;
+  foreach my $ln(0..$#{$l[0]}) {
+    if (!defined $l[1][$ln] || $l[1][$ln] ne $l[0][$ln]) {
+      warn "$program failed to match at line $ln:\n$l[0][$ln]\n$l[1][$ln]\n";
+      $ok=0;
+    }
+  }
+  if ($ok) {
+    warn "$program OK\n";
+  }
+  unlink("test.ch$n.txt");
+}
-- 
cgit 


From 4d1d5bcbdda384852713056b7ad3e5c4c146297a Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 26 Apr 2021 09:43:31 -0400
Subject: 1st commit on 110_node

---
 challenge-110/stuart-little/node/ch-1.js | 23 +++++++++++++++++++++++
 challenge-110/stuart-little/node/ch-2.js | 23 +++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100755 challenge-110/stuart-little/node/ch-1.js
 create mode 100755 challenge-110/stuart-little/node/ch-2.js

diff --git a/challenge-110/stuart-little/node/ch-1.js b/challenge-110/stuart-little/node/ch-1.js
new file mode 100755
index 0000000000..2627e204e5
--- /dev/null
+++ b/challenge-110/stuart-little/node/ch-1.js
@@ -0,0 +1,23 @@
+#!/usr/bin/env node
+
+// run <script> <path-to-file or nothing>
+// defaults to challenge sample if no file is entered
+
+const fs = require('fs');
+
+const data = (process.argv.length<=2) ? (`0044 1148820341
+ +44 1148820341
+  44-11-4882-0341
+(44) 1148820341
+  00 1148820341
+`) : fs.readFileSync(process.argv[2], 'utf8', function (err,data) {
+  if (err) {
+    return console.log(err);
+  }
+    return data;
+});
+
+let rgx = new RegExp(/((?:\+\d{2}|\(\d{2}\)|\d{4})\s+\d{10})/,'g');
+for (nr of [...data.matchAll(rgx)].map(x => x[0])) {
+    console.log(nr);
+};
diff --git a/challenge-110/stuart-little/node/ch-2.js b/challenge-110/stuart-little/node/ch-2.js
new file mode 100755
index 0000000000..bd8c0c0ab1
--- /dev/null
+++ b/challenge-110/stuart-little/node/ch-2.js
@@ -0,0 +1,23 @@
+#!/usr/bin/env node
+
+// run <script> <path-to-file or nothing>
+// defaults to challenge sample if no file is entered
+
+const fs = require('fs');
+const _ = require('lodash');
+
+const data = (process.argv.length<=2) ? (`name,age,sex
+Mohammad,45,m
+Joe,20,m
+Julie,35,f
+Cristina,10,f
+`) : fs.readFileSync(process.argv[2], 'utf8', function (err,data) {
+  if (err) {
+    return console.log(err);
+  }
+    return data;
+});
+
+console.log(
+    _.zip(...data.trim().split("\n").map(x => x.split(","))).map(x => x.join(","))
+);
-- 
cgit 


From 2afd5f937984d0e308df4c65e04ebaed3cff00fa Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 26 Apr 2021 17:23:16 +0200
Subject: Notes on the mismatch between specification and examples for week
 110, part 1

---
 challenge-110/abigail/README.md | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/challenge-110/abigail/README.md b/challenge-110/abigail/README.md
index a931e845a9..0de651abe6 100644
--- a/challenge-110/abigail/README.md
+++ b/challenge-110/abigail/README.md
@@ -29,6 +29,17 @@ nnnn nnnnnnnnnn
 (44) 1148820341
 ~~~~
 
+### Notes
+The examples show we should not take the specification as a specification;
+just a rough guideline. According to the specification, 
+" +44 1148820341" fails the criteria not once, but twice: it contains
+a leading space (not allowed in the specification), and it has only a
+single space between the '+44' part and the rest, where the specification
+requires two.
+
+We therefore conclude the examples just contain random spaces, and we
+can completly ignore any white space in the input.
+
 ### Solutions
 
 ### Blog
-- 
cgit 


From fade7f9cc20b4a6bd64313aa3f07ac2e40c10a5e Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.be>
Date: Mon, 26 Apr 2021 17:24:16 +0200
Subject: Perl solution for week 110, part 1

---
 challenge-110/abigail/README.md    |  1 +
 challenge-110/abigail/perl/ch-1.pl | 36 ++++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 challenge-110/abigail/perl/ch-1.pl

diff --git a/challenge-110/abigail/README.md b/challenge-110/abigail/README.md
index 0de651abe6..789f3d845f 100644
--- a/challenge-110/abigail/README.md
+++ b/challenge-110/abigail/README.md
@@ -41,6 +41,7 @@ We therefore conclude the examples just contain random spaces, and we
 can completly ignore any white space in the input.
 
 ### Solutions
+[Perl](perl/ch-1.pl)
 
 ### Blog
 
diff --git a/challenge-110/abigail/perl/ch-1.pl b/challenge-110/abigail/perl/ch-1.pl
new file mode 100644
index 0000000000..4ddafea3f1
--- /dev/null
+++ b/challenge-110/abigail/perl/ch-1.pl
@@ -0,0 +1,36 @@
+#!/opt/perl/bin/perl
+
+use 5.032;
+
+use strict;
+use warnings;
+no  warnings 'syntax';
+
+use experimental 'signatures';
+use experimental 'lexical_subs';
+
+#
+# See ../README.md
+#
+
+#
+# Run as: perl ch-1.pl < input-file
+#
+#
+# The examples show we should not take the specification as a specification;
+# just a rough guideline. According to the specification, 
+# " +44 1148820341" fails the criteria not once, but twice: it contains
+# a leading space (not allowed in the specification), and it has only a
+# single space between the '+44' part and the rest, where the specification
+# requires two.
+# 
+# We therefore conclude the examples just contain random spaces, and we
+# can completly ignore any white space in the input.
+# 
+
+while (<>) {
+    print if s/\s+//gr =~ /^ (?: \+\d{12} | \(\d{2}\)\d{10} | \d{14} )$/ax
+}
+
+
+__END__
-- 
cgit 


From 22459a75dd2ea9acc79c142ee3e9eb6c462812fa Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 26 Apr 2021 16:49:26 +0100
Subject: - Added solutions by Mark Anderson.

---
 stats/pwc-challenge-109.json              |  643 +++++
 stats/pwc-current.json                    |  646 +----
 stats/pwc-language-breakdown-summary.json |   76 +-
 stats/pwc-language-breakdown.json         | 4365 +++++++++++++++--------------
 stats/pwc-leaders.json                    |  390 +--
 stats/pwc-summary-1-30.json               |   38 +-
 stats/pwc-summary-121-150.json            |  116 +-
 stats/pwc-summary-151-180.json            |   58 +-
 stats/pwc-summary-181-210.json            |   46 +-
 stats/pwc-summary-211-240.json            |   50 +-
 stats/pwc-summary-31-60.json              |   44 +-
 stats/pwc-summary-61-90.json              |   40 +-
 stats/pwc-summary-91-120.json             |   36 +-
 stats/pwc-summary.json                    |   60 +-
 14 files changed, 3347 insertions(+), 3261 deletions(-)
 create mode 100644 stats/pwc-challenge-109.json

diff --git a/stats/pwc-challenge-109.json b/stats/pwc-challenge-109.json
new file mode 100644
index 0000000000..b21b77374d
--- /dev/null
+++ b/stats/pwc-challenge-109.json
@@ -0,0 +1,643 @@
+{
+   "tooltip" : {
+      "followPointer" : 1,
+      "pointFormat" : "<span style='color:{point.color}'>{point.name}</span>: <b>{point.y:f}</b><br/>",
+      "headerFormat" : "<span style='font-size:11px'>{series.name}</span><br/>"
+   },
+   "plotOptions" : {
+      "series" : {
+         "dataLabels" : {
+            "format" : "{point.y}",
+            "enabled" : 1
+         },
+         "borderWidth" : 0
+      }
+   },
+   "legend" : {
+      "enabled" : 0
+   },
+   "chart" : {
+      "type" : "column"
+   },
+   "series" : [
+      {
+         "name" : "Perl Weekly Challenge - 109",
+         "colorByPoint" : 1,
+         "data" : [
+            {
+               "y" : 3,
+               "drilldown" : "Aaron Smith",
+               "name" : "Aaron Smith"
+            },
+            {
+               "drilldown" : "Abigail",
+               "y" : 4,
+               "name" : "Abigail"
+            },
+            {
+               "name" : "Adam Russell",
+               "drilldown" : "Adam Russell",
+               "y" : 4
+            },
+            {
+               "name" : "Arne Sommer",
+               "drilldown" : "Arne Sommer",
+               "y" : 5
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Athanasius",
+               "name" : "Athanasius"
+            },
+            {
+               "name" : "Bartosz Jarzyna",
+               "y" : 5,
+               "drilldown" : "Bartosz Jarzyna"
+            },
+            {
+               "name" : "Cheok-Yin Fung",
+               "y" : 3,
+               "drilldown" : "Cheok-Yin Fung"
+            },
+            {
+               "name" : "Colin Crain",
+               "y" : 5,
+               "drilldown" : "Colin Crain"
+            },
+            {
+               "drilldown" : "Dave Jacoby",
+               "y" : 3,
+               "name" : "Dave Jacoby"
+            },
+            {
+               "name" : "Duncan C. White",
+               "y" : 2,
+               "drilldown" : "Duncan C. White"
+            },
+            {
+               "name" : "E. Choroba",
+               "y" : 2,
+               "drilldown" : "E. Choroba"
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Flavio Poletti",
+               "name" : "Flavio Poletti"
+            },
+            {
+               "name" : "Jaldhar H. Vyas",
+               "drilldown" : "Jaldhar H. Vyas",
+               "y" : 5
+            },
+            {
+               "drilldown" : "James Smith",
+               "y" : 2,
+               "name" : "James Smith"
+            },
+            {
+               "name" : "Jan Krnavek",
+               "y" : 2,
+               "drilldown" : "Jan Krnavek"
+            },
+            {
+               "drilldown" : "Joan Mimosinnet",
+               "y" : 2,
+               "name" : "Joan Mimosinnet"
+            },
+            {
+               "name" : "Jorg Sommrey",
+               "y" : 2,
+               "drilldown" : "Jorg Sommrey"
+            },
+            {
+               "drilldown" : "Lance Wicks",
+               "y" : 2,
+               "name" : "Lance Wicks"
+            },
+            {
+               "name" : "Laurent Rosenfeld",
+               "y" : 5,
+               "drilldown" : "Laurent Rosenfeld"
+            },
+            {
+               "drilldown" : "Luca Ferrari",
+               "y" : 4,
+               "name" : "Luca Ferrari"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Mark Anderson",
+               "name" : "Mark Anderson"
+            },
+            {
+               "name" : "Maxim Kolodyazhny",
+               "y" : 1,
+               "drilldown" : "Maxim Kolodyazhny"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "Mohammad S Anwar",
+               "name" : "Mohammad S Anwar"
+            },
+            {
+               "name" : "Niels van Dijke",
+               "drilldown" : "Niels van Dijke",
+               "y" : 2
+            },
+            {
+               "name" : "PJ Durai",
+               "drilldown" : "PJ Durai",
+               "y" : 2
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Philip Hood",
+               "name" : "Philip Hood"
+            },
+            {
+               "name" : "Roger Bell_West",
+               "drilldown" : "Roger Bell_West",
+               "y" : 5
+            },
+            {
+               "name" : "Simon Green",
+               "y" : 2,
+               "drilldown" : "Simon Green"
+            },
+            {
+               "y" : 2,
+               "drilldown" : "Simon Proctor",
+               "name" : "Simon Proctor"
+            },
+            {
+               "y" : 4,
+               "drilldown" : "Stuart Little",
+               "name" : "Stuart Little"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "Ulrich Rieke",
+               "name" : "Ulrich Rieke"
+            },
+            {
+               "y" : 3,
+               "drilldown" : "W. Luis Mochan",
+               "name" : "W. Luis Mochan"
+            },
+            {
+               "name" : "Wanderdoc",
+               "y" : 2,
+               "drilldown" : "Wanderdoc"
+            }
+         ]
+      }
+   ],
+   "subtitle" : {
+      "text" : "[Champions: 33] Last updated at 2021-04-26 15:48:53 GMT"
+   },
+   "drilldown" : {
+      "series" : [
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Aaron Smith",
+            "name" : "Aaron Smith"
+         },
+         {
+            "name" : "Abigail",
+            "id" : "Abigail",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ]
+         },
+         {
+            "name" : "Adam Russell",
+            "id" : "Adam Russell",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "Arne Sommer",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Arne Sommer"
+         },
+         {
+            "name" : "Athanasius",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Athanasius"
+         },
+         {
+            "name" : "Bartosz Jarzyna",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Bartosz Jarzyna"
+         },
+         {
+            "id" : "Cheok-Yin Fung",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Cheok-Yin Fung"
+         },
+         {
+            "name" : "Colin Crain",
+            "id" : "Colin Crain",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "name" : "Dave Jacoby",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Dave Jacoby"
+         },
+         {
+            "id" : "Duncan C. White",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "name" : "Duncan C. White"
+         },
+         {
+            "name" : "E. Choroba",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "E. Choroba"
+         },
+         {
+            "id" : "Flavio Poletti",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "name" : "Flavio Poletti"
+         },
+         {
+            "name" : "Jaldhar H. Vyas",
+            "id" : "Jaldhar H. Vyas",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "name" : "James Smith",
+            "id" : "James Smith",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Jan Krnavek",
+            "name" : "Jan Krnavek"
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Joan Mimosinnet",
+            "name" : "Joan Mimosinnet"
+         },
+         {
+            "name" : "Jorg Sommrey",
+            "id" : "Jorg Sommrey",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ]
+         },
+         {
+            "name" : "Lance Wicks",
+            "id" : "Lance Wicks",
+            "data" : [
+               [
+                  "Perl",
+                  1
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "name" : "Laurent Rosenfeld",
+            "id" : "Laurent Rosenfeld",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ]
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  2
+               ]
+            ],
+            "id" : "Luca Ferrari",
+            "name" : "Luca Ferrari"
+         },
+         {
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Mark Anderson",
+            "name" : "Mark Anderson"
+         },
+         {
+            "id" : "Maxim Kolodyazhny",
+            "data" : [
+               [
+                  "Raku",
+                  1
+               ]
+            ],
+            "name" : "Maxim Kolodyazhny"
+         },
+         {
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "id" : "Mohammad S Anwar",
+            "name" : "Mohammad S Anwar"
+         },
+         {
+            "name" : "Niels van Dijke",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Niels van Dijke"
+         },
+         {
+            "name" : "PJ Durai",
+            "id" : "PJ Durai",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ]
+         },
+         {
+            "id" : "Philip Hood",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "name" : "Philip Hood"
+         },
+         {
+            "id" : "Roger Bell_West",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ],
+               [
+                  "Raku",
+                  2
+               ],
+               [
+                  "Blog",
+                  1
+               ]
+            ],
+            "name" : "Roger Bell_West"
+         },
+         {
+            "name" : "Simon Green",
+            "data" : [
+               [
+                  "Perl",
+                  2
+               ]
+            ],
+            "id" : "Simon Green"
+         },
+         {
+            "name" : "Simon Proctor",
+            "data" : [
+               [
+                  "Raku",
+                  2
+               ]
+            ],
+            "id" : "Simon Proctor"
+         },
+         {
+