perl -e 's/(CELL_NAME)(.*)(_[A-Z]_)(.*)/$1$2_$4/g' -p -i.bak yourfile