Select Code to Download

use strict;
my %compare = ('[TCG]GGGG[AT]'=>['AGGGGC', 'TGGGGC'], 'TGGGGT'=>['AGGG
+GC','AGGGGC']);
...
No of Mismatch = 2

+++++++++++++++++++++++++++++