my  $sBegin = "hello world";
my  $sEnd   = do {
  local $_ = $sBegin;
  s/hello/goodbye/g;
  s/world/todo el mondo/;
  uc;
};

print $sEnd;