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