perl -Mstrict -e 'my $result = \do {local $_ = ""}; $$result = "test"; print $$result'