Select Code to Download

use strict;
use warnings;
...
        $offset += $-[1] + 1;
    }
}

In line 2: TAAGAACA.TAAGAACAA
Found . at 8
...
Found - at 4
Found . at 8
Found _ at 15