<opt>
  <sig>
    <code>$_='DHFNLJRPIQTXV^\Zb`Yatxqv~|c}C';s#.#push@a,unpack B8,pack v,-67+ord$&amp;
#eg;$_=&lt;STDIN&gt;;print&quot;\ec&quot;;s#[A-Z]#\{$&amp;#g;s#\d#|$&amp;#g;s#.#$c=$a[$&amp;=~/\d/?(
$&amp;||10)-1:$&amp;eq$&quot;?125:-97+ord lc$&amp;];printf&quot;\e[%d;%dH%s\e[%d;%dH%s$/&quot;,$_/2
,1+$x+$_%2,chop$c?&quot;.&quot;:&quot;&quot;,4,$x+2,$&amp;=~/\W/?&quot;&quot;:$&amp;for 2..7;$x+=3#eg</code>
    <pm>256913</pm>
    <title>Braille</title>
  </sig>
</opt>

