Select Code to Download

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

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