in reply to Char range

You can use the [:punct:] character class (see perlre)

perl -e '  for(0..255){ print chr($_) if chr($_)=~/[[:punct:]]/; } '

output:

!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~

In Section Seekers of Perl Wisdom