- Added solutions by Ruben Westerberg.

4 files changed, 19 insertions, 0 deletions

diff --git a/challenge-001/ruben-westerberg/perl5/ch-1.pl b/challenge-001/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..a4100b4c13
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $string="Perl Weekly Challenge";
+print "Original string: $string\n";
+print "Total replacements performed ",$string =~ s/e/E/g,"\n";
+print "Modified string: $string\n";
diff --git a/challenge-001/ruben-westerberg/perl5/ch-2.sh b/challenge-001/ruben-westerberg/perl5/ch-2.sh
new file mode 100755
index 0000000000..b1815d9630
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl5/ch-2.sh
@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+perl -e 'print join ", ",map {my $o;$o="fizz" if $_ % 3 == 0; $o.="buzz" if $_ % 5 == 0; $o?$o:$_} (1..20)'
diff --git a/challenge-001/ruben-westerberg/perl6/ch-1.p6 b/challenge-001/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..579f7636bb
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+
+my $string="Perl Weekly Challenge";
+put "Original string: $string";
+put "Total replacements performed: ", (s:g/e/E/).elems given $string;
+put "Modified string: $string"
diff --git a/challenge-001/ruben-westerberg/perl6/ch-2.sh b/challenge-001/ruben-westerberg/perl6/ch-2.sh
new file mode 100755
index 0000000000..f4b45109df
--- /dev/null
+++ b/challenge-001/ruben-westerberg/perl6/ch-2.sh
@@ -0,0 +1,2 @@
+#!/usr/bin/env bash
+perl6 -e 'put join ", ",(1..20).map: {my $o; $o="fizz" if $_ %% 3; $o~="buzz" if $_ %% 5; $o??$o!!$_}'