#!perl -lp
$_=eval s/[^=]/'+'.ord$&/egr?same:different