Select Code to Download

my $text = "I am going to walk to the park.";

...
    if    (lc $_ eq "walk") { print "Walking is good for you\n"; }
    elsif (lc $_ eq "park") { print "Parks are fun\n"; }
}

my %react_to = (
    walk => sub { print "Walking is good for you\n" },
...
        $reaction->();
    }
}

my %react_to = (
    a => sub { shift->{b} = sub { print "A before B\n" } },
...
        $reaction->(\%react_to);
    }
}