my $d = Dumper $hash; my $somanyspaces = ' 'x10; # how long is your string? # add to all lines whitespaces $d =~ s/^/$somanyspaces/gm; # add to first line your string $d =~ s/^$somanyspaces/I am lazy /; print $d; # now indented