my $source1  = '[TCG]GGGG[AT]'; # ambiguous
my $target1   = 'AGGGGC'; # No of mismatch = 2  on position 1 and 6
my $target2  = 'TGGGGC'; # No of mismatch = 1  on position 6 only

##</code><code>##

my $source2  =  'TGGGGT'; # not-ambiguous
my $target1  = 'AGGGGC'; # No of mismatch = 2  on position 1 and 6
my $target3  = 'TGGGGT'; # No of mismatch = 0  all position matches