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