And now, because it's Friday, we have the obfuscated "is it printable?" test:
For each binary character stuffed into $i:
if ( ((($i + 1) & 255) ^ 128) > 160 ) {print chr($i);}
Barry Brevik
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
