From 01abcc4707c7ec90cca53911b106dca663a44bde Mon Sep 17 00:00:00 2001
From: Alexander Pankoff <ccntrq@screenri.de>
Date: Mon, 13 Dec 2021 19:34:06 +0100
Subject: Add solution for challenge 143 part 1

---
 challenge-143/alexander-pankoff/perl/ch-1.pl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100755 challenge-143/alexander-pankoff/perl/ch-1.pl

diff --git a/challenge-143/alexander-pankoff/perl/ch-1.pl b/challenge-143/alexander-pankoff/perl/ch-1.pl
new file mode 100755
index 0000000000..5e18a29391
--- /dev/null
+++ b/challenge-143/alexander-pankoff/perl/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $expr = $ARGV[0];
+die "invalid expr\n" unless $expr && $expr =~ m/^[\s\d\.\+\-\*\*\(\)]*$/;
+print eval($expr) . "\n";
-- 
cgit