Select Code to Download

use warnings;
use strict;
...
    }

print qq{@$_ \n} for @dpos;

diff at offset 1, length 1
diff at offset 4, length 1
...
C G 1
G - 4
TAT C-C 8