Select Code to Download

c:\@Work\Perl\monks\tel2>perl -wMstrict -le
"my $s = '123';
...
A: 'X1X2X3X'
B: 'X'
C: '123X'

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