Select Code to Download

> perl -MO=Deparse -we'while ($foo = each %bar) { 1 }'
while (defined($foo = each %bar)) {
    '???';
}