http://www.perlmonks.org?node_id=149182


in reply to split at pipe character

#!/usr/bin/perl use strict; my $id = 'lcl|CHLMU1894'; my @code = split(/\|/,$id); print $code[1];
that will print CHLMU1894