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