#! /usr/bin/perl 
use warnings;
use strict;

while (<DATA>) {
    $_ = lc $_;
    s/(^| )(\p{Punct}*)(\w)/$1$2\U$3/g;
    print;
}

__DATA__
THIS iS a Text IN TITLE CASE
"THIS IS A 'TEST' CASE"
JOE MARCONES
JOE'S COMPANY
holy s**t, batman!
how about PARENTHETICAL TEXT (LIKE this.)