while (<DATA>) {
    chomp;
    print $_, ': ', (length != tr/A-Z/A-Z/ ? 'ok' : 'not ok'), "\n";
}

__DATA__
blah
BLAH
Blah