3 files changed, 18 insertions, 0 deletions
diff --git a/challenge-001/max-kossek/README b/challenge-001/max-kossek/README
new file mode 100644
index 0000000000..fae891e43d
--- /dev/null
+++ b/challenge-001/max-kossek/README
@@ -0,0 +1 @@
+Solution by Max Kossek
diff --git a/challenge-001/max-kossek/perl/ch-1.pl b/challenge-001/max-kossek/perl/ch-1.pl
new file mode 100644
index 0000000000..0214eb5e0b
--- /dev/null
+++ b/challenge-001/max-kossek/perl/ch-1.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl;
+use strict;
+use warnings;
+
+my $input_string = 'Perl Weekly Challenge';
+my $count_e = $input_string =~ s/e/E/g;
+print "$input_string - Number of e's replaced: $count_e\n";
+
+__END__
diff --git a/challenge-001/max-kossek/perl/ch-2.pl b/challenge-001/max-kossek/perl/ch-2.pl
new file mode 100644
index 0000000000..0ba1607c5d
--- /dev/null
+++ b/challenge-001/max-kossek/perl/ch-2.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl;
+use strict;
+use warnings;
+
+print grep { $_ % 15 == 0 ? $_ = 'fizzbuzz' : $_ % 5 == 0
+	? $_ = 'fizz' : $_ % 3 == 0 ? $_ = 'buzz' : $_ } 1..20;
+
+__END__