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