Select Code to Download

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