for ( my $i = 0 ; $i < $l ; $i++ ) {

        foreach my $nucl (@nucleotides) {

            substr( $cand_motif, $i, 1 ) = $nucl;
            push @enumerated_motifs, $cand_motif;

            #print "$cand_motif\n";
        }

    }

##</code><code>##

    meta_for ( my $i = 0 ; $i < $l ; $i++ ) {

        foreach my $nucl (@nucleotides) {
            substr( $cand_motif, $i, 1 ) = $nucl;

    } # meta_for

            push @enumerated_motifs, $cand_motif;

            #print "$cand_motif\n";

    meta_end_for ( my $i = 0 ; $i < $l ; $i++ ) {

        } # foreach

    } # meta_end_for

##</code><code>##

    my $code = "xyzzy";
    for ( my $i = 0 ; $i < $l ; $i++ ) {

        $code =~ s/xyzzy/
        foreach my \$nucl (\@nucleotides) {
            substr( \$cand_motif, $i, 1 ) = \$nucl;
            xyzzy
        }
/;

    }
        $code =~ s/xyzzy/
            push \@enumerated_motifs, \$cand_motif;
            #print "\$cand_motif\\n";
/;

    eval $code;