Given the string: "GGCTTTCCGTTGTTGCTGGGTGTGGGGGGCGGGCGAGATTGGAAGAGCACACGTCTGAACTCCAGTCACG".
"CCAATATCTCGTATGCCGTCTTCTGCTTGAAAAAAGGGGTGGGGGGGAGGGGGGGCGGGGGGGGGGGGGGGAGGGGGGGAG", please explain in english what you want to accomplish. I have no idea what this means
##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

while (my $line=<DATA>)
{ 
    chomp $line;
    my @array = $line =~ /(ACTCCAGTCACGCCAATATCTCGTAT)(.+?)(?:G{10,})/g;
    
    print join ("\n", @array),"\n";
    #prints "ACTCCAGTCACGCCAATATCTCGTAT"
    #       "GCCGTCTTCTGCTTGAAAAAAGGGGTGGGGGGGAGGGGGGGC" -> stuff before 10 or more G's

    
}

__DATA__
GGCTTTCCGTTGTTGCTGGGTGTGGGGGGCGGGCGAGATTGGAAGAGCACACGTCTGAACTCCAGTCACGCCAATATCTCGTATGCCGTCTTCTGCTTGAAAAAAGGGGTGGGGGGGAGGGGGGGCGGGGGGGGGGGGGGGAGGGGGGGAG