From 7172edadbb0b471cdc3570098fe3f9e3160699e6 Mon Sep 17 00:00:00 2001
From: Alexander Pankoff <ccntrq@screenri.de>
Date: Tue, 14 Dec 2021 10:49:21 +0100
Subject: Remove duplicate char from match group

---
 challenge-143/alexander-pankoff/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-143/alexander-pankoff/perl/ch-1.pl b/challenge-143/alexander-pankoff/perl/ch-1.pl
index 5e18a29391..fcb9c8edbc 100755
--- a/challenge-143/alexander-pankoff/perl/ch-1.pl
+++ b/challenge-143/alexander-pankoff/perl/ch-1.pl
@@ -3,5 +3,5 @@ use strict;
 use warnings;
 
 my $expr = $ARGV[0];
-die "invalid expr\n" unless $expr && $expr =~ m/^[\s\d\.\+\-\*\*\(\)]*$/;
+die "invalid expr\n" unless $expr && $expr =~ m/^[\s\d\.\+\-\*\(\)]*$/;
 print eval($expr) . "\n";
-- 
cgit