Select Code to Download

sub foo {
    my ($a, $b, $c) = @_;
...
    print $hash{$a}->{$b}->{$c};
    # ...
}

local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }