perl -pi -e 's/__*__/\uc($1)/g' a.test;
perl -pi -e 's/__*__/\U$1/g' a.test