Select Code to Download

use warnings;
use strict;
...
while ( $dna =~ m[($re)]g ) {
    print join " " => $1, $-[0], $+[0]-1, $/;
}