$ perl -Mstrict -wE 'say sprintf("%s", qw/two strings/);'