sprintf($_[0], @_[1..$#_])

##</code><code>##

sprintf(shift, @_)

##</code><code>##

perl -E 'say prototype(q{CORE::sprintf})'
$@