From a22549e96faaca73796ca9ee62cfa4cd3fe55343 Mon Sep 17 00:00:00 2001
From: Matthew Neleigh <matthew.neleigh@gmail.com>
Date: Tue, 25 Jun 2024 11:23:44 -0400
Subject: modified:   challenge-275/mattneleigh/perl/ch-2.pl

---
 challenge-275/mattneleigh/perl/ch-2.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/challenge-275/mattneleigh/perl/ch-2.pl b/challenge-275/mattneleigh/perl/ch-2.pl
index 3967338edd..dfa47d6be8 100755
--- a/challenge-275/mattneleigh/perl/ch-2.pl
+++ b/challenge-275/mattneleigh/perl/ch-2.pl
@@ -28,6 +28,7 @@ foreach my $string (@strings){
         character_advance($string)
     );
 }
+;
 
 exit(0);
 ################################################################################
@@ -68,11 +69,11 @@ sub character_advance{
                 # the bounds of the alphabet
                 $char_value -= 26
                     unless(
-                        # Upper case
-                        (($char_value > 64) && ($char_value < 91))
-                        ||
                         # Lower case
                         (($char_value > 96) && ($char_value < 123))
+                        ||
+                        # Upper case
+                        (($char_value > 64) && ($char_value < 91))
                     );
 
                 # Store the new letter in place of
-- 
cgit