perl -pi.bak -e 's#()([^<]{1,10})[^<]*()#$1$2$3#g' list of files