From 2691c53b2da60f1c5801a77f845326b0140dcf66 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <Mohammad.Anwar@yahoo.com>
Date: Tue, 25 May 2021 13:53:12 +0100
Subject: Update ch-1.pl

---
 challenge-114/mohammad-anwar/perl/ch-1.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/challenge-114/mohammad-anwar/perl/ch-1.pl b/challenge-114/mohammad-anwar/perl/ch-1.pl
index 55f005da9f..4d713efd9f 100644
--- a/challenge-114/mohammad-anwar/perl/ch-1.pl
+++ b/challenge-114/mohammad-anwar/perl/ch-1.pl
@@ -5,6 +5,5 @@ use warnings;
 
 my $N = $ARGV[0] || 1234;
 
-do { $N++ }
-until ($N == reverse split //,$N);
+do { $N++ } until ($N == reverse split //,$N);
 print "$N\n";
-- 
cgit