...
if ($string =~ /^[ATGC]{8}$/) {
...