diff options
| -rwxr-xr-x | challenge-143/alexander-pankoff/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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"; |