$ perl -MO=Deparse -e 'm|\||x'
/|/x;

 $ perl -MO=Deparse -e 'm|\\||x'
/\\/ | 'x';

 $ perl -MO=Deparse -e 'm|\\\||x'
/\\|/x;