$_= "p:e:r:l";
($p,$e)=split(/:/);