Select Code to Download

# Delete the value and try the next one unless it has a non-printable,
+ or a space
delete $$hoh_ref{$key}{$value} and next unless /[^[:print:]]/ or /\s/;

...
{
  print "Unprintable !\n";
}