From 567c335dc7413b78fcdbeb42de179f088a55839e Mon Sep 17 00:00:00 2001
From: lakpatashi <lakpatashi@gmail.com>
Date: Tue, 13 Apr 2021 14:28:25 +0530
Subject: challenge 1 finished.

---
 challenge-001/lakpatashi/README       |  1 +
 challenge-001/lakpatashi/perl/ch-1.pl | 11 +++++++++++
 challenge-001/lakpatashi/perl/ch-2.pl | 22 ++++++++++++++++++++++
 3 files changed, 34 insertions(+)
 create mode 100644 challenge-001/lakpatashi/README
 create mode 100755 challenge-001/lakpatashi/perl/ch-1.pl
 create mode 100755 challenge-001/lakpatashi/perl/ch-2.pl

diff --git a/challenge-001/lakpatashi/README b/challenge-001/lakpatashi/README
new file mode 100644
index 0000000000..bc153bd576
--- /dev/null
+++ b/challenge-001/lakpatashi/README
@@ -0,0 +1 @@
+Solution by lakpatashi
diff --git a/challenge-001/lakpatashi/perl/ch-1.pl b/challenge-001/lakpatashi/perl/ch-1.pl
new file mode 100755
index 0000000000..bb5a80f1de
--- /dev/null
+++ b/challenge-001/lakpatashi/perl/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $var = 'Perl Weekly Challenge';
+print "Before:: $var\n";
+my $repCount = $var =~ s/e/E/g;
+print "After :: $var\n";
+print "char Replaced:: $repCount\n";
+
diff --git a/challenge-001/lakpatashi/perl/ch-2.pl b/challenge-001/lakpatashi/perl/ch-2.pl
new file mode 100755
index 0000000000..e343bce7c5
--- /dev/null
+++ b/challenge-001/lakpatashi/perl/ch-2.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use feature "switch";
+
+for my $i (1..20){
+	given($i){
+		when(not $i%15){
+			print "fizzbuzz\n";
+		}
+		when(not $i%3){
+			print "fizz\n";
+		}
+		when(not $i%5){
+			print "buzz\n";
+		}
+		default{
+			print "$i\n";
+		}
+	}
+}
-- 
cgit