#!/usr/bin/env perl -l

use strict;
use warnings;

my $id = 'Hi|Hello\|Sir';
my @code = split /\|/, $id;
print $code[1]; 

@code = split /(?<!\\)\|/, $id;
print $code[1];