If you're reading these in from an array, I wonder if a test like this might be faster:

my @array = get_block_of_data;
data_is_bad if join("", @array) =~ /[^A-Z]/;
[download]