if ($$hoh_ref{$key}{$value} !~ /[^[:print:]]/g &&
        $$hoh_ref{$key}{$value} !~ /\s/) {
        delete $$hoh_ref{$key}{$value};
    }
    elsif ($$hoh_ref{$key}{$value} =~ /[^[:print:]]/g) {
        while ($$hoh_ref{$key}{$value} =~ /[^[:print:]]/g) {
        print "Non Printable Characater:\t$&\n";
        }
    }