03    elsif ( length($pattern) <= $mismatches_allowed ) {
04        $pattern =~ tr/ACTG/./;
05        return $pattern;
06    }