Solutions for challenge 01

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-001/vinod-k/perl/ch-1.pl b/challenge-001/vinod-k/perl/ch-1.pl
new file mode 100644
index 0000000000..30fa15c5a1
--- /dev/null
+++ b/challenge-001/vinod-k/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use feature 'say';
+
+use Data::Dumper;
+
+my @new_array;
+my $count = 0;
+
+my $string = "Perl Weekly Challenge";
+say "Before: $string";
+
+my @array = split //, $string;
+
+foreach (@array){
+    if($_ eq 'e'){
+        $_ =~ s/e/E/;
+        $count++;		
+	}
+	push @new_array, $_;
+}
+say "After: ".join('', @new_array);
+say "Letter 'e' occured $count times.";
diff --git a/challenge-001/vinod-k/perl/ch-2.sh b/challenge-001/vinod-k/perl/ch-2.sh
new file mode 100644
index 0000000000..7adc263477
--- /dev/null
+++ b/challenge-001/vinod-k/perl/ch-2.sh
@@ -0,0 +1 @@
+perl -le 'foreach (1..20){ if (!($_ % 15)){ print "fizzbuzz "; } elsif (!($_ % 3)){ print "fizz "; } elsif (!($_ % 5)){ print "buzz "; } else { print "$_ "; } }'