if (my @matches = $sequence[1] =~ m/^(.*)$reg(.*)$/i) {
    @{ $aligned[$posCount] }[ 0 .. $numInsertionDeletes - 1 ] = @matches;
}