A simple way of doing this is to use the  x repetition operator:

print ' ' x $number, 'A', ' ' x $number_two, "B\n";
[download]

-Mark