$sEnd = do {local $_ = $sBegin; s/hello/goodbye/g; $_;};