$ perl -E '
> $line = q{PERIOD 13 OCT 06 OCT};
> say for map ucfirst lc, split q{ }, $line;'
Period
13
Oct
06
Oct
$