Oddly enough, I had just started to look for code that would allow me to detect special (non-alphanumeric) characters in ASCII text. The code

$U = unpack('C', $1);
$U < 127 and $U > 31 or return;
[download]

was exactly what I needed. Thanks very much for sharing that.