http://qs321.pair.com?node_id=944313


in reply to while loop with logical or

# Interleaved order
while ( /($a|$d)/g ) {
    print "$1\n";
}

[download]
or 
# Original order. Note that $1 is now $_.
for ( /($a)/g, /($d)/g ) {
    print "$_\n";
}

[download]

In Section Seekers of Perl Wisdom