perl -Mstrict -wE '
my $str = "ATCGATCGA...";
if ( $str =~ /([ATCG])\./ ) {
say "$1 at $-[1]";
}
'