my $stored = freeze($hash);
$stored =~ s/\r/\\r/g;
$stored =~ s/\n/\\n/g;
$stored =~ s/\t/\\t/g;
$stored =~ s/\cH/\\b/g;
print "<$stored>\n";