my  $sBegin = "hello world";
my  $sEnd   = "";

($sEnd) =                           ### ugly0
    map{uc($_);}
    map{s/world/todo el mundo/;$_;} ### ugly1
    map{s/hello/goodbye/g;$_;}      ### ugly1
    (sub{$sBegin}->());             ### ugly0, ugly2

print $sEnd;