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