perl -E 'my $str = shift; my $i; $i++ while ($str =~ s/e/E/ ) ; say $i; say $str; ' 'Perl Weekly Challenge'