perl -i.BAK -pe 's!(<OPERATORID>)(.*)(</OPERATORID>)!$1 . substr($2, 0, 10) . $3!e' FILE1 FILE2 ...