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