my %globize = ('P' => '{P',  ':' => '}:{', '' => '}');
...
$globule =~ s{ (\A P | : | \z) }{$globize{$1}}xmsg;