Select Code to Download

use Benchmark qw/cmpthese/;
use List::Util qw/reduce/;
...
        join '&', kvmap { "$a=$b" } @data;
    }
};

sub TIESCALAR { bless \my $o => $_[0] }
sub STORE { $_[1] = "Touched by STORE\n" }
...
print $b; # => Untouched by STORE
tied($a)->STORE($b);
print $b; # => Touched by STORE

sub walk {
     my ( $ref ) = @_;
...
          default { carp "I'm confused by $ref" }
     }
}

{
my ( $test, $modify );
...
     }
}
}

my ( $gold ) = $data =~ /$rx/

qr/(foo).*(foo)(?{ $_ =~ s+foo+bar+g })/

use re 'eval';
my $rx = qr/$rx_with_foo(?{ $_ =~ s+foo+bar+g })/

{
package A;
...
print $a->legal_keys, "\n";
print $a, "\n";
print Hash::Util::legal_keys($a), "\n";