*{"    |$ /    |$ /|___|"}=sub{ust};*{qq%.|   $/ |--.$/ |  |%}=sub{q@acker,@};
*{qq*  __.$ /  --|$ / |__|*}=sub{q.nother.};*{qq#.---$/ |__)$/ |  #}=sub{erl};
print $  _ ,$  _ ->  (), $ / for grep {m  { ^[ .|]  }x } sort keys % {*  :: };

##</code><code>##

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)