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