Select Code to Download

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

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

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

perl -l

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