Select Code to Download

use strict;

...
    my $width = $splits[$index + 1] - $splits[$index];
    print substr ($seq, $splits[$index], $width), "\n";
}

------------
GGATCC________________
GGATCC=============
GGATCC+++++++++