From faffe66f477214e58cd6543786bdc8026488db0d Mon Sep 17 00:00:00 2001
From: Niels van Dijke <perlboy@cpan.org>
Date: Mon, 1 Jun 2020 06:01:14 +0000
Subject: Task 1

---
 challenge-063/perlboy1967/perl/ch-1.pl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 challenge-063/perlboy1967/perl/ch-1.pl

diff --git a/challenge-063/perlboy1967/perl/ch-1.pl b/challenge-063/perlboy1967/perl/ch-1.pl
new file mode 100644
index 0000000000..f88288d2b1
--- /dev/null
+++ b/challenge-063/perlboy1967/perl/ch-1.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+# Perl Weekly Challenge - 063
+#
+# Task 1 - Last Word
+#
+# Author: Niels 'PerlBoy' van Dijke
+
+use strict;
+use warnings;
+
+# Prototype
+sub last_word($$);
+
+printf "%s\n", last_word('  hello world',                qr/[ea]l/);      # 'hello'
+printf "%s\n", last_word("Don't match too much, Chet!",  qr/ch.t/i);      # 'Chet!'
+printf "%s\n", last_word("spaces in regexp won't match", qr/in re/) // '(undef)';      #  undef
+printf "%s\n", last_word( join(' ', 1..1e6),             qr/^(3.*?){3}/); # '399933'
+
+sub last_word ($$) {
+  my ($line, $re) = @_;
+
+  foreach my $word (reverse split(/\s+/, $line) {
+     return $word if ($word =~ /$re/);
+  }
+
+  return undef;
+}
+
-- 
cgit