- or download this
$str='...............................GAGAACATTAGTGGGTGCAGCGCACAAGCATGG
+CACATGTATACGTATGTAA..................';
- or download this
$rightmost_position_of_letter = rindex ($str,[A|T|C|G]);
- or download this
$rightmost_position_of_letter = rindex ($str,[ATCG]);