tr
     ( -/:-@[-`{-})
     [`-{/" \-]
;

##</code><code>##

  DB<11> print chr($_),"" for ord('`')..ord('{')
`abcdefghijklmnopqrstuvwxyz{

##</code><code>##

  DB<16> print chr($_) for map {ord($_->[0])..ord($_->[1])} [' ','/'], [qw(: @)],[qw([ `)],[qw({ })]
 !"#$%&'()*+,-./:;<=>?@[\]^_`{|}