- or download this
#!/usr/bin/env perl
...
print "$_\n" for @nucleotideDNA;
print "*** nonvalid ***\n";
print "$_\n" for @nonvalid;
- or download this
$ ./pm_11113020_parse_dna.pl
XACGTYTGCAZ
...
1: X
6: Y
11: Z
- or download this
for my $pos (0 .. $#DNA) { ... }