#! /usr/bin/perl -w
use strict;

while (<DATA>) {
	s/\b(\w)(\w*)/uc($1).lc($2)/ge;
	print;
}

__DATA__
THIS iS a Text IN TITLE CASE
THIS IS TESTING
JOE MARCONES
RESIDENTIAL MAINTENANCE COMPANY