$str = "<tag>blah</tag> <another>meh</another>";
print "*$str*\n";
$str =~ s/\<(.*?)\>/ " "x(2+length($1)) /eg;
print "*$str*\n";