perl -Mstrict -wE '
my $str = "GAGAACATTAGTGGGTGCAGCGCACAAGCATGGCACATGTATACGTATGTAA";
say sprintf q{%s is last found at pos %s}, $_, rindex( $str, $_ ) for qw/A C G T/;
'