map {s/.../.../ge; $_}

##</code><code>##

map {(my $x= $_)=~s/.../.../ge; $x}