P:\test>perl -e"print qq[($_)] for @ARGV" ^| ^< ^> ^% ^^
(|)(<)(>)(%)(^)