$aa="PPPP";
$search="PP";
$count =()= ($aa =~ /$search/g);
print $count;