my @array = qw(A B C D E);
join('|', @array) =~ /\A(\|?ABCDE\|?)+\z/g or warn "Validation failure\n";