list log files replace particular field

 for i in `ls cdr.30_JUL_2012*`; do perl -e 'while(<>) {@fields=split(/\|/,$_);$fields[5]="hello";for($i=0;$i <= $#fields; $i++){ print "$fields[$i]|";}}' $i > hello.$i; done &