print grep{@b=sort/./g;$@?$@eq"@b":($@="@b",0)}<>
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page