#!perl -lp
s/[^=]/-ord$&/eg;$_=eval()?same:different