What I am using is: cp $2 TestSed export IFS=', ' while read replace search do if [ $search != $replace ]; then echo $replace $search perl -i -p -e "s/\Q$search/$replace/g" TestSed fi done < Mapping/$1-Mapping1
Regards, Mehmet -- SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/ Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html