for ($x = 0;$x < 255;$x++){
	$_ = chr($x);
	if (/\w/){ print "$_ ";}
}