Comma delimited file manipulation

Shell Programming and Scripting
1

Question about how to change the first & last name in column one & two so that the names have a capital letter for just the first letter. Example:

asdf@asdf.com,asdf,asdfasdf,176.23.22.345,4/12/2012

changed to:

asdf@asdf.com,Asdf,Asdfasdf,176.23.22.345,4/12/2012

Thank you kindly,

Nick

2 
echo "asdf@asdf.com,asdf,asdfasdf,176.23.22.345,4/12/2012" | \
perl -F, -lane '$F[1]=~s/(\w)/\u$1/; $F[2]=~s/(\w)/\u$1/;print join (",",@F)'
3 
echo 'asdf@asdf.com,asdf,asdfasdf,176.23.22.345,4/12/2012' | perl -pe 's/^(.*?),(\w+),(\w+),/$1,\u$2,\u$3,/'