my $S = sprintf $_[0], @_[1 .. $#_];