1 2 3 4 5
eReplace ← 'E'@('e'∘=) eCount ← +/'e'∘= (eReplace,eCount) 'Perl Weekly Challenge' ⍝ PErl WEEkly ChallEngE 5