$_ eq "pot" and ($_ = "kettle") for $some->{deeply}{nested}{data}{structure};

##</code><code>##

$some->{deeply}{nested}{data}{structure} = "kettle"
    if $some->{deeply}{nested}{data}{structure} eq "pot";

##</code><code>##

{
    local *_ = \$some->{deeply}{nested}{data}{structure};
    $_ = "kettle" if $_ eq "pot";
}

##</code><code>##

my $stuff;
for(return_value()) {
    chomp;
    s/foo//g;
    tr/x/y/;
    $stuff = $_;
}

##</code><code>##

my $stuff = return_value();
for($stuff) {
    chomp;
    s/foo//g;
    tr/x/y/;
}