use 5.18.2;

while (my $line = <DATA>)
{
    say;

    if ($line =~ m/ (ACTCCAGTCACGCCAATATCTCGTAT) ([ACTG]{10}) .*? (G{10,}) /x)
    {
        say for $1, $2, $3;    # Can use @{^CAPTURE} in Perl 5.25.7 and later
    }
}

__DATA__
GGCTTTCCGTTGTTGCTGGGTGTGGGGGGCGGGCGAGATTGGAAGAGCACACGTCTGAACTCCAGTCACGCCAATATCTCGTATGCCGTCTTCTGCTTGAAAAAAGGGGTGGGGGGGAGGGGGGGCGGGGGGGGGGGGGGGAGGGGGGGAG