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

print $sEnd;