D:\work\perl\Net\ldap>perl -w
use strict;
my $id = 'lcl|CHLMU1894';
my @code = split(/\|/,$id);
print $code[1];
^Z
CHLMU1894