perl -Mstrict -wE '
my $str = "GAGAACATTAGTGGGTGCAGCGCACAAGCATGGCACATGTATACGTATGTAA";
say  rindex( $str, [ATCG] )
'