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

##</code><code>##

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

##</code><code>##

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

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