Select Code to Download

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

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