Select Code to Download

Select or download this

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

Select or download this
```
        my @line = split;
```

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

            #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 }

Select or download this

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

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

Select or download this

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