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