sub replace (&$) { local $_ = $_[1]; &{$_[0]}(); $_; } 

##</code><code>##

$newstr = replace { s/k/w/ } $oldstr;