my $seq = "G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA";
$seq =~ s/[^ACTGactg]//g;
my @result = $seq =~ /[ACTG]+/g;
say for @result;