in reply to split at pipe character
that will print CHLMU1894#!/usr/bin/perl use strict; my $id = 'lcl|CHLMU1894'; my @code = split(/\|/,$id); print $code[1];
In Section
Seekers of Perl Wisdom
in reply to split at pipe character
that will print CHLMU1894#!/usr/bin/perl use strict; my $id = 'lcl|CHLMU1894'; my @code = split(/\|/,$id); print $code[1];