$xml = '<funcCall>
<funcName>write</funcName>
<rhsValue>crlf</rhsValue>
<symConstant>loading</symConstant>
<symConstant>| |</symConstant>
<symConstant>lemmas</symConstant>
<symConstant>| |</symConstant>
<symConstant>for</symConstant>
<symConstant>| |</symConstant>
<variable>&lt;lx&gt;</variable>
<symConstant>| |</symConstant>
<symConstant>onto</symConstant>
<symConstant>| |</symConstant>
<variable>&lt;lms&gt;</variable>
</funcCall>';
$xml =~ 
	s&
		<funcCall>.
		<funcName>write</funcName>.
		<rhsValue>crlf</rhsValue>
		(.<(?:symConstant|variable)>[^<]*</(?:symConstant|variable)>)+.
		</funcCall>
	&
		my $text;
		foreach my $expr (1..$#-) {
			$text .= ${$expr};
		}
		$text =~ s#<rhsValue>crlf</rhsValue>#\\n#;
		$text =~ s#</?symConstant>##sg;
		$text =~ s#</?variable>##sg;
		$text =~ s#.\| \|.# #sg;
		"<write string=\"$text\"/>";
	&xse;
	
print $xml;