perl -pe's/^([[:alpha:]]+)/ uc $1 /e' -i.bak <file list>

##</code><code>##

perl -pe's/^([[:alpha:]]+)/ uc $1 /e if condition' -i.bak <file list>