diff options
| -rw-r--r-- | challenge-185/mohammad-anwar/perl/ch-2.pl | 4 |
1 files 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++; } |