perl -E 'say my $n = (my $s = "Perl Weekly Challenge" )=~ y/e/E/; say $s;'