# HG changeset patch # User mkhan1980 # Date 1366903343 14400 # Node ID f1696b304b8d22ad06579129c115fa6f4ebd27a6 # Parent 1c09a4a564596a14db30307276285b09be1fe3f6 Uploaded diff -r 1c09a4a56459 -r f1696b304b8d check2.pl --- a/check2.pl Thu Apr 25 11:20:08 2013 -0400 +++ b/check2.pl Thu Apr 25 11:22:23 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.