From 617e9994dae13e899c40383bbe01bd94f6514568 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 5 Aug 2019 22:34:11 +0200
Subject: [020#1]

---
 020/ch1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 020/ch1.pl

(limited to '020/ch1.pl')

diff --git a/020/ch1.pl b/020/ch1.pl
new file mode 100755
index 0000000..ede090e
--- /dev/null
+++ b/020/ch1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl
+#
+# Write a script to accept a string from command line and split it on change of
+# character. For example, if the string is “ABBCDEEF”, then it should split like
+# “A”, “BB”, “C”, “D”, “EE”, “F”.
+################################################################################
+
+use strict;
+use warnings;
+
+use 5.13.2;
+
+print substr(shift =~ s/((.)\g2*)/$1 /gr, 0, -1), "\n";
-- 
cgit v1.2.3