From 259da27c263a993e29c6ac1a6485aa634a7ba902 Mon Sep 17 00:00:00 2001
From: threadless-screw <threadless-screw@mailbox.org>
Date: Tue, 6 Aug 2019 21:28:14 +0200
Subject: wk20ch1p6

---
 challenge-020/ozzy/perl6/ch-1.p6 | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 challenge-020/ozzy/perl6/ch-1.p6

diff --git a/challenge-020/ozzy/perl6/ch-1.p6 b/challenge-020/ozzy/perl6/ch-1.p6
new file mode 100644
index 0000000000..21474ac5d1
--- /dev/null
+++ b/challenge-020/ozzy/perl6/ch-1.p6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+# Accept a string from command line and split it on change of character.
+
+sub MAIN (Str $string ="ABBCDEEF") {
+
+    $string.match: / ( $<l>=<.alpha> $<l>* )+ /;    # Quantified capture yields array $/[0] of Match objects
+    say $/[0][*].Str;                               # Stringify each Match object to see the overall match
+
+}
\ No newline at end of file
-- 
cgit