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