how do I convert a word to Initial cap rest lower case.

To force each word in a line to be lower case, with the first letter upper case:
$line =~ s/(\w+)/\u\L$1/g;

hth