Exact Sequence Searching

#!/usr/local/bin/perl

$dnatext = "ggggggCgggCgggCgggg";

print " Original genome: $dnatext \n";

$n_mut = $dnatext =~ s/gC/gg/gi;

print " Found: $n_mut mutation(s)\n";

print " After gene-therapy: $dnatext \n";

Original genome: ggggggCgggCgggCgggg

Found: 3 mutation(s)

After gene-therapy: ggggggggggggggggggg

Previous slide

Next slide

Back to first slide

View graphic version