Maybe Perl's x operator is of interest to you? Consider:

use strict;
use warnings;

print ' ' x 8, "<spirit:library>XYZ_lib</spirit:library>\n";
print "12345678^\n";
[download]

Prints:

        <spirit:library>XYZ_lib</spirit:library>
12345678^
[download]