use Data::Dumper;
my $dumper_output = Dumper({"foo   bar"=>"quz\n   baz"});
print $dumper_output;
$dumper_output =~ s/ +/ /g;
print $dumper_output;
__END__
$VAR1 = {
          'foo   bar' => 'quz
   baz'
        };
$VAR1 = {
 'foo bar' => 'quz
 baz'
 };