http://www.perlmonks.org?node_id=369590

Public Scratchpad

Download, Select Code To D/L

---

       use strict;
   s//<>5:@/;y/'-|/[-|/;
 $;='#)!/';$;=~y/ -|/`-|/;
    s//"$_ '$;'"/ee;
[download]