perl -E'sub w{join"",sort pop=~/./g}$w=w pop;($w~~w$_)&&print for<>' ./dict.txt acert

##</code><code>##

perl -E'sub w{"@{[sort pop=~/./g]}"}$w=w pop;($w~~w$_)&&print for<>' ./dict.txt acert

##</code><code>##

perl -E'sub w{"@{[sort/./g]}"}$_=pop;$w=w;$w~~w&&print for<>' ./dict.txt acert

##</code><code>##

perl -E'sub w{"@{[sort/./g]}"}$w=w$_=pop;$w~~w&&print for<>' ./dict.txt acert

##</code><code>##

perl -E'sub w{[sort/./g]}$w=w$_=pop;$w~~w&&print for<>' ./dict.txt acert