Help for this page
#!/usr/bin/env perl -l ... @code = split /(?<!\\)\|/, $id; print $code[1];
Hello\ Hello\|Sir