Solution to task 1

1 files changed, 18 insertions, 0 deletions

diff --git a/challenge-083/jo-37/perl/ch-1.pl b/challenge-083/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..ccacecf211
--- /dev/null
+++ b/challenge-083/jo-37/perl/ch-1.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use Test2::V0;
+
+sub inner_length {
+	local $_ = shift;
+
+	# Split the string into words, pick all between the first and the
+	# last, join them and return the length.
+	length join '', splice @{[split qr{\s+}]}, 1, -1;
+
+}
+
+is inner_length('The Weekly Challenge'), 6, 'Example 1';
+is inner_length('The purpose of our lives is to be happy'), 23, 'Example 2';
+is inner_length('nothing intermediate'), 0, 'Out of scope: no inner words';
+
+done_testing;