From 61c0f26bb7721579308a879449efe6b45a4c7451 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Wed, 10 Feb 2021 07:58:18 +0100
Subject: simplify cmd-line processing

---
 challenge-098/jo-37/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-098/jo-37/perl/ch-1.pl b/challenge-098/jo-37/perl/ch-1.pl
index ac4435d70f..2af4affc21 100755
--- a/challenge-098/jo-37/perl/ch-1.pl
+++ b/challenge-098/jo-37/perl/ch-1.pl
@@ -51,7 +51,7 @@ EOS
 
 binmode STDOUT, ':utf8';
 
-/^\d+$/ and say readN($a, $_) and next or $a = $_ for @ARGV;
+/^\d+$/ and say readN($a, $_) or $a = $_ for @ARGV;
 
 
 ### Implementation
-- 
cgit