$perldoc -f sprintf
には
printf '<%6s>', 12; # prints "< 12>"
なんて例が載ってます