$ perl -Mdiagnostics -e " $foo = sprintf q{%-24s}, 123; substr $foo, 20, 4 , 4444; print $foo; "
123                 4444