#!perl -p @a=('<','=','>');s/ / $a[($`<=>$')+1] /