Use a look ahead assertion:

my $str = "PPPP";
my $search = "PP";
my $count = () = $str =~ /(?=$search)/g;
print $count;
[download]