#!           /usr/bin/perl
           $^X =~ y/0-9.//d,
          print join$",(sort
         97.110.0.do{local $"=
        "";       $_=       "@{[
        sort     split     //,$~
        ] }"     ;eval     ";42;
         y/$~/heotr/";s/(.)\1+
          /\1/x;$_} , [split/
          \//x,($_=   chr++$|
+$=         /$]*$^F).$$_]->        [--
   $.],      crypt    ($_      =pack
      ("I*",    1722938    ),$_)
           =~/          .(..
            ..)/x,"#=6.!1"
            ^$~),  chr(8).
         chr            $=/
     $^F+                   ++$^F,
#Sub                             Stack