#!perl -p
s/ \K/qw(= > <)[$`<=>$'].$"/e