use strict; use warnings; use feature "say"; my $var = "Perl Weekly Challenge"; my @count; @count = ($var =~ s/e/E/g); say $var; say @count;