#!perl -lp /==/;$_="@{[sort split//,$']}"eq"@{[sort split//,$`]}"?same:different