printf +(3 < length $in ? q() : ' ') . '%-3s', $in

##</code><code>##

printf ' ' x (4 > length $in) . '%-3s', $in