4 files changed, 68 insertions, 2 deletions
diff --git a/challenge-095/sgreen/README.md b/challenge-095/sgreen/README.md
index 9fb2f453a3..4f295734b3 100644
--- a/challenge-095/sgreen/README.md
+++ b/challenge-095/sgreen/README.md
@@ -1,3 +1,3 @@
-# The Weekly Challenge 094
+# The Weekly Challenge 095
 
-Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-094-2d2h)
+Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-095-2jkl)
diff --git a/challenge-095/sgreen/blog.txt b/challenge-095/sgreen/blog.txt
new file mode 100644
index 0000000000..f24b63f5ac
--- /dev/null
+++ b/challenge-095/sgreen/blog.txt
@@ -0,0 +1 @@
+https://dev.to/simongreennet/weekly-challenge-095-2jkl
diff --git a/challenge-095/sgreen/perl/ch-1.pl b/challenge-095/sgreen/perl/ch-1.pl
new file mode 100755
index 0000000000..463ec06e3f
--- /dev/null
+++ b/challenge-095/sgreen/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use feature 'say';
+
+sub main {
+    my $N = shift;
+
+    # Sanity check
+    die "You must enter a number\n" if not defined $N;
+    die "The value '$N' does not look like a number\n" unless $N =~ /^-?\d+(?:\.\d+)?$/;
+
+    # Say 1 if the reversed string equals the number, otherwise say 0
+    say $N eq reverse($N) ? 1 : 0;
+}
+
+main(@ARGV);
diff --git a/challenge-095/sgreen/perl/ch-2.pl b/challenge-095/sgreen/perl/ch-2.pl
new file mode 100755
index 0000000000..2615502ada
--- /dev/null
+++ b/challenge-095/sgreen/perl/ch-2.pl
@@ -0,0 +1,46 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+package Stack;
+use List::Util;
+
+sub new {
+    my $class = shift;
+    my $self  = bless {}, $class;
+    $self->{stack} = [];
+    return $self;
+}
+
+sub push {
+    my ( $self, $value ) = @_;
+    push @{ $self->{stack} }, $value;
+}
+
+sub pop {
+    my $self = shift;
+    pop @{ $self->{stack} };
+}
+
+sub top {
+    my $self = shift;
+    return $self->{stack}[-1];
+}
+
+sub min {
+    my $self = shift;
+    return List::Util::min @{ $self->{stack} };
+}
+
+package main;
+
+my $stack = Stack->new;
+$stack->push(2);
+$stack->push(-1);
+$stack->push(0);
+$stack->pop;
+say $stack->top;
+$stack->push(0);
+say $stack->min;