perl -pi -e 's/\(RED|||([0-9]{8})|||\)/\1/g'