Select Code to Download

$ perl -we'$foo = "abcdefghij"; ($bar) = grep s/[ei]/x/g, "$foo"; prin
+t $bar'
abcdxfghxj