note johngg <code> $ perl -E ' > $str = q{G_I1E2_GTGGAG^303CTGgacgCCCTGC_I2E3_TACA}; > say for > map { tr{[ACGT]}{}cd; $_ } > split m{[a-z]+}, $str;' GGTGGAGCTG CCCTGCTACA $ </code> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-401112"> <p>Cheers,</p><p>JohnGG</p> </div></div> 989259 989259