Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse -e 'while (@d) {}'
while (@d) {
...
while (defined($_ = glob(join($", @d)))) {
    ();
}

Select or download this

#!/usr/bin/perl -W
use strict;
...
bar    white    Util    Me
baz    blue    jonnyfolk    Saint J
qux    black    Util    Me2