Select Code to Download

perl -E '$h={a=>1,b=>2}; say $h->{a}'

perl -E '$h={a=>1,b=>2}; say ${$h}{a}'

my $color = ${( first { $class =~ /$_->{'re'}/ } @rules )}{ color };