perl6 -e 'say Int( (my $s = "Perl Weekly Challenge" ) ~~ tr/e/E/); say $s;'