chomp;
        my @line = split /\s+/, $_;

##</code><code>##

        my @line = split;

##</code><code>##

            if ($bwa{$ID}[2] =~ /[D]/) { $splitstoreD = 1; } else { $splitstoreD = 0 }
            if ($bwa{$ID}[2] =~ /[I]/) { $splitstoreI = 1; } else { $splitstoreI = 0 }

##</code><code>##

            $splitstoreD = $bwa{$ID}[2] =~ /D/ ? 1 : 0;
            $splitstoreI = $bwa{$ID}[2] =~ /I/ ? 1 : 0;

##</code><code>##

            $splitstoreD = $bwa{$ID}[2] =~ /D/;
            $splitstoreI = $bwa{$ID}[2] =~ /I/;

##</code><code>##

            #Defining Deletions
            if($splitstoreD == 1) { $bwa{$ID}[11]="Del" } else { $bwa{$ID}[11]=0 }
            
            #Defining Insertions
            if($splitstoreI == 1) { $bwa{$ID}[12]="Ins" } else { $bwa{$ID}[12]=0 }

##</code><code>##

            #Defining Deletions
            $bwa{$ID}[11] = $splitstoreD == 1 ? 'Del' :0;

            #Defining Insertions
            $bwa{$ID}[12] = $splitstoreI == 1 ? 'Ins' : 0;

##</code><code>##

                @s2 = split /(\d+M)/, @s1;
                @s3 = split /(\d+M)/, @s2;
                @s4 = split /(\d+I)/, @s3;
                @s5 = split /[D]/, @s4;