if ( $_rec =~ tr/A-Z/a-z/ ) {
    # tr/// returns the number of characters converted
    # so we get here only if there had been at least one A-Z
}