#!perl.exe 
#  invoke as follows:
#  perl -p -i.BAK posfix.pl FILENAMETOPROCESS
#
if ( /OPERATORID/ ) 
{ 
	$_ =~ s/<OPERATORID>//;
	$_=~ s/<\/OPERATORID>//;
	$_=substr($_,0,10);
	$_ = "<OPERATORID>". $_ . "</OPERATORID>\n";
}