Select Code to Download

my $rsSomeValue = \ do { my $val = 42 };   # scalar ref
my $raCats = [ qw{ Tiddles Desmo Felix } ] # array ref
...
my $rcDoIt = sub { return $_[ 0 ] * 3 };   # code ref
my $rxPat = qr{abc};                       # regexp ref
my $roObj = Some::Pkg->new()               # object ref