Help for this page

Select Code to Download


  1. or download this
    @_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~
+m!^$/@_?$!}<D>;@{pop@,}
  2. or download this
    @_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~
+m!$/@_?$!}<D>;@{pop@,}
  3. or download this
    @_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort/./sg)=~m!$
+/@_?$!}<D>;@{pop@,}
  4. or download this
    perl -l

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