Help for this page

Select Code to Download


  1. or download this
    $_ eq "pot" and ($_ = "kettle") for $some->{deeply}{nested}{data}{structure};
  2. or download this
    $some->{deeply}{nested}{data}{structure} = "kettle"
    if $some->{deeply}{nested}{data}{structure} eq "pot";
  3. or download this
    {
    local *_ = \$some->{deeply}{nested}{data}{structure};
    $_ = "kettle" if $_ eq "pot";
}
  4. or download this
    my $stuff;
for(return_value()) {
    chomp;
...
    tr/x/y/;
    $stuff = $_;
}
  5. or download this
    my $stuff = return_value();
for($stuff) {
    chomp;
    s/foo//g;
    tr/x/y/;
}