Perl script designed to study somatic variability in microsatellites using exome sequencing