perl -Mstrict -wE '
my $str = "ATCGATCGA...";
if($str=~/[ATCG]+([ATCG])\.+$/) {
   my $last_char=$1;
   say $last_char;
    my $pos = rindex($str, $last_char);
   say $pos;
}
'
A
8