sub splitMail {local($To,$IN,$OUT) = @_; 
 local($x1,$x2,$k); 
 local $x = $$IN; 
 if (($k=index($x,"\/#T\(gloVData\):\(#L:\/#L:"))==-1) {return 1}; $x1 = substr($x,0,$k+22); $x = substr($x,$k+22);
 if (($k=index($x,"\/#L"))==-1) {return 1}; $x1 = $x1.substr($x,$k); $x2 = substr($x,0,$k);
 $$IN = $x1; $$OUT = $x2;
 return 0;
}

function splitMail(To,IN,OUT) { 
 var x1,x2,k; 
 var x = IN[0]; 
 if ((k=x.indexOf("\/#T\(gloVData\):\(#L:\/#L:"))==-1) {return 1}; x1 = x.substr(0,k+22); x = x.substr(k+22);
 if ((k=x.indexOf("\/#L"))==-1) {return 1}; x1 = x1+x.substr(k); x2 = x.substr(0,k);
 IN[0] = x1; OUT[0] = x2;
 return 0;
}