Help for this page
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;