Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    "sub'".$1.$2."{'".$3."'}";\&{"$1$2"}}$/=q*(\w)*;map{$#{$_}?$#{$_}++
    && __$ _:'' ;$#.=&{__$_}}qw*TAJ YOu hIs yet _2_ Spa zEn Tao NOt ugh
    sue her _1_ VIP the far Url _0_ hah aha sIc aCk Ace fur* ;print _$#
    
  2. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
    qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)