np	np	n_nom	3	{RP}	{RP}
paNiyappeVttirunna	VM_RP	V_RP	o	o	o
np	np	n_nom	-3	{/RP}	{/RP}

np	np	n_nom	3	{RP}	{RP}
nammal	VM_RP	V_RP	o	o	o
np	np	n_nom	-3	{/RP}	


##</code><code>##

$countC = 0;
while(<>) 
{
chomp;
@array = split(/\t/,$_);
if($array[4] eq $array[5]) 
{
foreach $item(@array){
if(($item =~ /{RP}/) && ($item++ =~ /{\/RP}/))
{
$countC++;
}
}
}
}
print"CorrectRP=>$countC\n";