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