perl -nE'$w//=pop;[sort$w=~/./g]~~[sort//g]&&print' ./dict.txt acert

##</code><code>##

perl -nE'$w//=pop;[sort$w=~/./g]~~[sort//g]&&say' ./dict.txt acert

##</code><code>##

perl -nlE'$w//=pop;[sort$w=~/./g]~~[sort//g]&&say' ./dict.txt acert

##</code><code>##

perl -nlE'($w//=[sort pop=~/./g])~~[sort//g]&&say' ./dict.txt acert