Perhaps you could use a regular expression:

print $sequence if $sequence =~ /^[^A]*(?:A[^A]*A)+[^A]*$/;
[download]