my $source1  = '[TCG]GGGG[AT]'; # ambiguous
my $target1   = 'AGGGG[CT]'; # No of mismatch = 1  only at position 1