# HG changeset patch # User mkhan1980 # Date 1366903208 14400 # Node ID 1c09a4a564596a14db30307276285b09be1fe3f6 # Parent c30f1e611791fbcdb092dd1a2da20b9dc6162f8a Uploaded diff -r c30f1e611791 -r 1c09a4a56459 check.pl --- a/check.pl Mon Mar 04 07:01:24 2013 -0500 +++ b/check.pl Thu Apr 25 11:20:08 2013 -0400 @@ -106,7 +106,7 @@ # Define the pattern for CTCF. Because of pseudocount, a wildcard is allowed at #each position. - my $pattern = "[ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC][ATGC]"; + my $pattern = "[ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN][ATGCN]"; # Compare the pattern with the 19 bp nucleotide segments.