From edb09502bebec7d58a06debe6abbc3495ef9cc64 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sat, 15 Aug 2020 05:07:41 +0100
Subject: - Tidied up Perl solution.

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

diff --git a/challenge-072/mohammad-anwar/perl/ch-2.pl b/challenge-072/mohammad-anwar/perl/ch-2.pl
index f70396b76f..5aefb7ab19 100755
--- a/challenge-072/mohammad-anwar/perl/ch-2.pl
+++ b/challenge-072/mohammad-anwar/perl/ch-2.pl
@@ -15,7 +15,7 @@ my $F = $ARGV[0];
 my $A = $ARGV[1];
 my $B = $ARGV[2];
 
-print lines_range($F, $A, $B), "\n";
+lines_range($F, $A, $B);
 
 #
 #
@@ -33,5 +33,5 @@ sub lines_range {
     my @lines = <$F>;
     close($F);
 
-    print $lines[$_] for $A-1..$B-1;
+    print $lines[$_] for --$a..--$b;
 }
-- 
cgit