@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~m!^$/@_?$!}<D>;@{pop@,}

##</code><code>##

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~m!$/@_?$!}<D>;@{pop@,}

##</code><code>##

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort/./sg)=~m!$/@_?$!}<D>;@{pop@,}

##</code><code>##

perl -l

@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort/./sg)=~/$\@_?$/}<D>;@{pop@,}