# If not white space character AND not non printable character remove element


##</code><code>##

    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";
        }
    }


##</code><code>##

        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};
        }


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,