$t =~ s/(?<=\s)(.)/uc $1/ge;

##</code><code>##

$t =~ s/(?<=\s)(.)/\U$1/g;