Select Code to Download

($sEnd) = map {s/hello/goodbye/g; $_;} map {$_} ($sBegin);

($sEnd) = map {s/hello/goodbye/g; $_;} @{[$sBegin]};

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

(my $sEnd = $sBegin) =~ s/hello/goodbye/g;