Add solution for challenge 143 part 1

1 files changed, 7 insertions, 0 deletions

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";