my $string = "Perl Weekly Challenge";
my $counter = ($string =~ s/e/E/g);
print "New String: $string\nCounter: $counter";