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