From dcca78e4ccc455976d2df4d3416ab800c02bc445 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 4 Oct 2022 12:35:21 +0100
Subject: - Tidied up solution.

---
 challenge-185/mohammad-anwar/perl/ch-2.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-185/mohammad-anwar/perl/ch-2.pl b/challenge-185/mohammad-anwar/perl/ch-2.pl
index 20faf12e7c..a962ab7edc 100644
--- a/challenge-185/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-185/mohammad-anwar/perl/ch-2.pl
@@ -39,8 +39,8 @@ sub mask_code(@list) {
         my $i    = 0;
 
         foreach my $char (split //, $entry) {
-            ($i >= 4) && ($mask .= $char) && next;
-            ($char !~ /^[a-z0-9]$/) && ($mask .= $char) && next;
+            ($i >= 4) and ($mask .= $char) and next;
+            ($char !~ /^[a-z0-9]$/) and ($mask .= $char) and next;
             $mask .= 'x';
             $i++;
         }
-- 
cgit