$_ = "p:e:r:l";
$_ =~ s/://g;    # substitue all the `:' by nothing
print "$_\n";