$s = 'G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA';;

$s =~ tr[ACGTacgt][]cd;;

print for split '[acgt]+', $s;;
GGTGGAGCTG
CCCTGCTACA