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