You beat me to the post, I get errors too.

root@ANON:/var/www/auth_required # perl -we'my $test = join(" & ", map
+ { sprintf "%-8s (x%s)", "$_\n"} qw/foo bar baz/)'
Newline in left-justified string for sprintf at -e line 1.
Use of uninitialized value in sprintf at -e line 1.
Newline in left-justified string for sprintf at -e line 1.
Use of uninitialized value in sprintf at -e line 1.
Newline in left-justified string for sprintf at -e line 1.
Use of uninitialized value in sprintf at -e line 1.
[download]