Select Code to Download

[[tx]][[nm]]Murugesan[[/nm]]is trainee perl programmer.[[/tx]]
[[tx1]][[nm]]Murugesan[[/nm]]is trainee perl programmer.[[/tx1]]

<customer><name type="rrd">Murugesan</name> is trainee perl programmer
+</customer>
<vendor><name type="integra">Murugesan</name> is trainee perl programm
+er</vendor>

s/\[\[tx\]\](.*?)\[\[\/tx\]\]/'<customer>'.&txt($1).'<\/customer>'/egs
+i;

...
$a=~s/\[\[nm\]\](.*?)\[\[\/nm\]\]/<name type="rrd">$1<\/name>/gsi;
return $a;
}