while($allseq =~ /(ct(?:a|g)a(?:c|t))(?:.{$len})/g)
  {push(@array, $1);}