[020#1]

1 files changed, 13 insertions, 0 deletions

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";