2 files changed, 16 insertions, 0 deletions
diff --git a/challenge-096/stuart-little/perl/ch-1.pl b/challenge-096/stuart-little/perl/ch-1.pl
new file mode 100755
index 0000000000..a80edffd2f
--- /dev/null
+++ b/challenge-096/stuart-little/perl/ch-1.pl
@@ -0,0 +1,7 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <quoted string>
+
+say join " ", (reverse grep /\w/, (split /\s+/, $ARGV[0]))
diff --git a/challenge-096/stuart-little/perl/ch-2.pl b/challenge-096/stuart-little/perl/ch-2.pl
new file mode 100755
index 0000000000..bf9f494a97
--- /dev/null
+++ b/challenge-096/stuart-little/perl/ch-2.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+use warnings;
+use v5.12;
+
+# run <script> <space-separated strings>
+
+use Text::Levenshtein qw(distance);
+
+say distance ($ARGV[0], $ARGV[1])