Help for this page

Select Code to Download


  1. or download this
    *{"    |$ /    |$ /|___|"}=sub{ust};*{qq%.|   $/ |--.$/ |  |%}=sub{q@a
+cker,@};
*{qq*  __.$ /  --|$ / |__|*}=sub{q.nother.};*{qq#.---$/ |__)$/ |  #}=s
+ub{erl};
print $  _ ,$  _ ->  (), $ / for grep {m  { ^[ .|]  }x } sort keys % {
+*  :: };
  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($,,$;,$*,$/)