Select Code to Download

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

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

        if ($$hoh_ref{$key}{$value} =~ /[^[:print:]]/) { # no /g neede
+d
            while ($$hoh_ref{$key}{$value} =~ /[^[:print:]]/g) {
...
        elsif ($$hoh_ref{$key}{$value} !~ /\s/) {
            delete $$hoh_ref{$key}{$value};
        }

($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,