Shell Programming and Scripting

PRODUCT No.,SCIENCE BOOKS,DESCRIPTION
Product 1,PHILOSOPHIAE NATURALIS PRINCIPIA MATHEMATICA (1687),Blah blah blah
Product 2,Dialogue concerning the two chief world systems (1632),Blah blah blah
Product 3,De Revolutionibus Orbium Coelestium (1543),Blah blah blah
Product 4,the voyage of the beagle (1845),Blah blah blah

sed -e 's/.*/\L&/' -e 's/\<./\u&/g' file 

where:
sed 's/.*/\L&/' file   --> Changes to lower case
sed 's/\<./\u&/g' file --> Changes only first letter of each word to uppercase

Is there a way to say SED to work over a specific column?

awk 'BEGIN{FS=OFS=","} NR>1{$2=tolower($2);$2=gensub(/\<[A-Za-z]/,"X","g",$2)} {print $0}'

Where:
NR>1{$2=tolower($2) --> Changes all within column 2 to lower case
$2=gensub(/\<[A-Za-z]/,"X","g",$2) --> Replaces with "X" the first letter of each word (regexp \<[A-Za-z]) within column 2.

Is there a way to use toupper with a remembered pattern?
(i.e instead put "X", use toupper("\1")  within gensub )

This awk script replaces the first letter with a constant (a capital X)
PRODUCT No.,SCIENCE BOOKS,DESCRIPTION
Product 1,Xhilosophiae Xaturalis Xrincipia Xathematica (1687),Blah blah blah
Product 2,Xialogue Xoncerning Xhe Xwo Xhief Xorld Xystems (1632),Blah blah blah
Product 3,Xe Xevolutionibus Xrbium Xoelestium (1543),Blah blah blah
Product 4,Xhe Xoyage Xf Xhe Xeagle (1845),Blah blah blah

$ 
$ 
$ cat -n f7
     1    PRODUCT No.,SCIENCE BOOKS,DESCRIPTION
     2    Product 1,PHILOSOPHIAE NATURALIS PRINCIPIA MATHEMATICA (1687),Blah blah blah
     3    Product 2,Dialogue concerning the two chief world systems (1632),Blah blah blah
     4    Product 3,De Revolutionibus Orbium Coelestium (1543),Blah blah blah
     5    Product 4,the voyage of the beagle (1845),Blah blah blah
$ 
$ perl -F, -lane '$F[1]=~s/(\w+)/ucfirst(lc($1))/ge; print join(",",@F)' f7
PRODUCT No.,Science Books,DESCRIPTION
Product 1,Philosophiae Naturalis Principia Mathematica (1687),Blah blah blah
Product 2,Dialogue Concerning The Two Chief World Systems (1632),Blah blah blah
Product 3,De Revolutionibus Orbium Coelestium (1543),Blah blah blah
Product 4,The Voyage Of The Beagle (1845),Blah blah blah
$ 
$

perl -F, -lane '$F[20]=~s/(\w+)/ucfirst(lc($1))/ge; print join("|",@F)' inputfile > output

awk -F, -v col=2 ' 
NR > 1{
  n=split(tolower($col),a," ")
  $col=toupper(substr(a[1],1,1)) substr(a[1],2)
  for(i=2;i<=n;i++) {
    $col=$col " " toupper(substr(a[i],1,1)) substr(a[i],2)
  }
}1' OFS="|" infile

#!/bin/ksh
typeset -L1 -u first
typeset -l rest
while IFS=, read field1 field2 fieldn; do
  titlefield2=""
  for i in $field2; do
    first=$i
    rest=${i#?}
    titlefield2="$titlefield2$first$rest "
  done
  printf "%s,%s,%s\n" "$field1" "${titlefield2% }" "$fieldn"
done < infile