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

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