add solution for week 1, ch-01

2 files changed, 15 insertions, 0 deletions

diff --git a/challenge-001/ailbhe-tweedie/README b/challenge-001/ailbhe-tweedie/README
new file mode 100644
index 0000000000..36d4034b70
--- /dev/null
+++ b/challenge-001/ailbhe-tweedie/README
@@ -0,0 +1 @@
+Solution by Ailbhe Tweedie
diff --git a/challenge-001/ailbhe-tweedie/perl5/ch-01.pl b/challenge-001/ailbhe-tweedie/perl5/ch-01.pl
new file mode 100755
index 0000000000..22c1d97107
--- /dev/null
+++ b/challenge-001/ailbhe-tweedie/perl5/ch-01.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+#
+# Write a script to replace the character ‘e’ with ‘E’ in the string
+# ‘Perl Weekly Challenge’. Also print the number of times the
+# character ‘e’ is found in the string.
+
+my $string = 'Perl Weekly Challenge';
+my $numberOfEs;
+while ($string =~ /\G[^e]*e/g) {
+	$numberOfEs++;
+}
+print "Es: $numberOfEs\n";
+my $replaced = $string =~ s/e/E/g;
+print "replaced: $replaced";