'(?=[A-E])(?:' . join('|',map($_ x 5, qw(A B C D E))) . ')'