#!/usr/bin/perl
use strict;

my $id = 'lcl|CHLMU1894';
my @code = split(/\|/,$id);
print $code[1];
[download]

that will print CHLMU1894