Another Regex question.

[Sara]

$TS = "THIS INPUT IS IN ALL CAPS";

$TS_cont = lc $TS;

$TS now prints out "this input is in all caps"

What If I want first letter in caps for every word in string? which should be "This 
Input Is In All Caps"

TIA,

Sara.