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