#  on windows - update quotes as needed
perl -E"my $x = q|Some::Package::PP|; say 1 while $x =~ /::/g"

#produces
1
1