perl -e '$_="Perl Weekly Challenge"; $n = tr/e/E/; print "n=$n,
string=$_\n"'