Perl weekly challenge 2019 #1

use strict;
use warnings;
use feature "say";

my $var = "Perl Weekly Challenge";
my @count;

@count = ($var =~ s/e/E/g);

say $var;
say @count;