my @array = qw/A B C D E/;
(join '',@array)=~/ABCDE/gc or warn "Validation failure";