$line="P1::Va=Wb,P2::Vc=Wd,P1::Ve=Wf,P3::Vx=Wy,";

printf "\n$line\n";

if($line =~ /(.*),(.*::.*=.*)/){
	printf "\n$1\n";
	printf "\n$2\n";
}