I think even the golfiest way is very clear to a reasonable perl user. On the other hand, sprintf never catch my eyes.