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