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

print "$p$e$r$l\n";