Re: Check even numbers?

[jwkrahn]

Perhaps you could use a regular expression:

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