- or download this
my %foo = ( 'bar' => {'baz' => 1} );
print $foo{'baz'}->{'bar'} || 'oops';
- or download this
my %foo = ( 'bar' => undef );
print $foo{'bar'}->{'baz'} || "oops";
- or download this
local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }