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