From b8ca25755d427a90d5052ca5855b664be2fa8a44 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Wed, 28 Apr 2021 11:06:11 +0100
Subject: - Tidied up task 1 of week 110.

---
 challenge-110/mohammad-anwar/perl/ch-1.pl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/challenge-110/mohammad-anwar/perl/ch-1.pl b/challenge-110/mohammad-anwar/perl/ch-1.pl
index 4dce75e324..c07833da30 100644
--- a/challenge-110/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-110/mohammad-anwar/perl/ch-1.pl
@@ -12,10 +12,7 @@ open(my $fh, '<:encoding(utf8)', $FILE)
 while (my $row = <$fh>) {
     chomp $row;
 
-    if ( ($row =~ /\+\d{2}\s\d{10}/)   ||
-         ($row =~ /\d{4}\s\d{10}/)     ||
-         ($row =~ /\(\d{2}\)\s\d{10}/)
-       ) {
+    if ( $row =~ / ( \+\d{2} | \(\d{2}\) | \d{4} ) \s \d{10} /x ) {
         print "$row\n";
     }
 }
-- 
cgit