perl5.8.6 -e 'for (32 .. 126, 160 .. 255) { $ch = chr $_; $isalpha = ($ch =~ /\p{Alpha}/); print "$_ ($ch): $isalpha\n" }'