http://www.perlmonks.org?node_id=333194


in reply to Re: Perl Idioms Explained - my ($foo, $bar) = @{shift(@_)}{qw/ -foo -bar /}
in thread Perl Idioms Explained - my ($foo, $bar) = @{shift(@_)}{qw/ -foo -bar /}

Oh yeah, and he's a children's book author as well ... :-)

 

perl -le "print unpack'N', pack'B32', '00000000000000000000001011000110'"