echo ,abcdefg,abcdefg | perl -pe 's/,.*?(cd)?.*?,/=$1=/'