$ perl -wMstrict -e 'print "foo %2.2f%% %s\n"'
foo %2.2f%% %s
$ perl -wMstrict -e 'printf "foo %2.2f%% %s\n", 40.04, "bar"'
foo 40.04% bar