$ perl -MO=Deparse,-p -e 'something() xor otherthing() if $condition;'
($condition and (something() xor otherthing()));