if($data !~ /^[\ -\~\007\012\015\035\036\037]*$/) {
	$data =~ tr/[\ -\~\007\012\015\035\036\037]/ /cs;
}

##</code><code>##

 &#8596;&#9650;&#9660; !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk
lmnopqrstuvwxyz{|}~