perl -e '$a = "foobar"; printf("#%16s#\n", $a);'

##</code><code>##

#          foobar#

##</code><code>##

Two names: 'foo             ', 'bar             ' for         D#/Eb4, F#/Gb4, A#/Bb4, F5,