From 882a0bb82e99e33170b3747f04da58f904321308 Mon Sep 17 00:00:00 2001
From: Daniel Mita <mienaikage@gmail.com>
Date: Sun, 25 Oct 2020 18:25:29 +0000
Subject: Add solution for challenge-083-1 in Perl

---
 challenge-083/daniel-mita/perl/ch-1.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100755 challenge-083/daniel-mita/perl/ch-1.pl

diff --git a/challenge-083/daniel-mita/perl/ch-1.pl b/challenge-083/daniel-mita/perl/ch-1.pl
new file mode 100755
index 0000000000..cbcd67d7e5
--- /dev/null
+++ b/challenge-083/daniel-mita/perl/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw<say>;
+
+my @words = split( /\s+/, $ARGV[0] // '' );
+if ( @words >= 3 ) {
+    say scalar( split( //, join( '', @words[ 1 .. $#words - 1 ] ) ) );
+}
+else {
+    say 'Fewer than 3 words given.';
+    exit 1;
+}
-- 
cgit