$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";