perl -wE 'say for "G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA" =~ s/[^ACTGactg]//gr =~ /[ACTG]+/g;'