Re^2: Splitting the record using the delimiter

[graff]

This is a case for a negative look-behind assertion:

#!/usr/bin/perl
use strict;

my $id = 'Hi|Hello\|Sir';
my @code = split(/(?<!\\)\|/,$id);

print $code[1]."\n";

UPDATE: Sorry, I should have realized that I just repeated what kcott said in the previous reply.