$ perl -e '$qs=quotemeta("|"); system( qq{echo "$qs"} );'
\|